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3 1 001 MODULE Wah Soe TSyeS ( 

; ¢ oe IDENT = ‘V04-000' 

: 0 )ez 

3 4 004 1 BEGIN 

i fee EP 

: ? 007 1 PETTITT ILI LLL LLL LLL LLL LLL LL LiL Lilli Lititiit iii 
s 1 ‘ee © 
: 4 009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 10 0010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
; 1} 091 : :* ALL RIGHTS RESERVED. * 
; : * 
; i 918 1 !® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 16 0016 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 13 id ; be TRANSFERRED. * 
: 'f * 
3 st 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $8 bo5$ : @ CORPORATION. * 
Ps .* & 
; 24 00246 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; Bos$ 1 !® * 
‘ee 4 0027 1 !«* * 
3 28 0028 1 eee ee eee eee 
3 $3 70029 1! 

; 0 0030 1 

3 H 0031 1 !++ 

; 2 it t4 1! FACILITY: VAX/VMS MAIL UTILITY 

3 33 0035 1! 

3 ee Boe : ABSTRACT: Subroutines to speak to networks 

; 36 B39 : ENVIRONMENT: NATIVE/USER MODE 

3 $6 sit 1 AUTHOR: Benn Schreiber, CREATION DATE: 10-Jul-1983 

s 60 0040 1 ! MODIFIED BY: 

; 41 0041 1! 

3; 62 0042 1! " 

3; 645 0045 1! v03-015 ROPO030 Robert Posniak 24-JUL-1984 

: 6 0044 1! Allow VFC format files to be sent in 

s 65 0045 1! block mode. 

: 46 0046 1! : 

, 67 0047 1! v03-014 ROPOO12 Robert Posniak 27-JUN-1984 

:; «648 0048 1! Only send in block mode if input file has 

: «649 0049 1! variable Length records. Add check of 

: 30 0050 1! nodename for sere tes protocol address 

3 2) Ones : already exists test. 

; 38 0088 eB v03-013 ROPOOO1 _ Robert Posniak _ _24=MAY-1984 

; «(54 0054 1! Check for oversized record when sending in record 

; 55 Boe ..¢ mode. 

; 2$ B28 1! ’ 

Ha 0057 1! v03-012 BLS0311 Benn Schreiber 1=MAY-1984 


— 
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0 14-Sep-1 DISKSVMSMASTER: CMAIL.SRCINETSUBS. B32" 719° a1 

: : 838 ] Don't send O-address to $qio. | : 
: 60 060 1 | v03-011 BL$0292 Benn Schreiber 29-MAR=1984 | ; 
3; 6) 061 1! Correct handling of alternate protocol per problems ; 
: ? B66 : reported by Peter Lipman. Complete attachment for MR. : 
: 64 0064 1! v03-010 6.50280 Benn gchreiber 4-MAR-1984 | : 
: 2? Bee? ! Report errors in mail$get_input better. ; 
> 67 0067 1 | v03-009 BLS0272 Benn Schreiber 18-FEB-1984 13:36:59 ; 
: 4 Bpe8 : Complete alternate protocol hooks. Use LIBSFIND_IMAGE_SYMBOL ; 
; 0 $090 1 i v03-008 BLS0263 Benn Schreiber 4-FEB-1984 | ; 
: 71 0071 1! Separate sending O-end-of-username out into a routine ; 
: f pos : so that slave atils that timeout on usernames don't tteceut. : 
ae 0074 1 | v03-007 BLS0255 Benn Schreiber 28-Dec-1983 ; 
; 0075 1! Convert to tise flags. Add routine fe check addressee . 
a 0076 1! already in list. If createlink is called for node already : 
; 77 0077 1! known dead, resignal the error for network master. Insist : 
; 0078 1! on getting an ncb back in the mailbox. nei \Sget,, input now : 
; 4 4 4 : } supports optional 3rd arg for output length. ‘ 
: 81 0081 1! v03-006 BLS0250 Benn Schreiber 12-Dec-1983 : 
: : ait } Clear block mode flag in accept_link if error. : 
> Ba 0084 1 i VO3-005 BL S0246 Benn Schreiber 28-Nov-1983 | : 
; o2 4 #4 : } Allow “C out of qio to access remote node. | : 
: 87 0087 1: v03-004 BLS0241 Benn Schreiber 27-Sep-1983 ; 
; He 443 : } Fix maxmsg and bufquo args to "ASN. WTH_MBX. : 
: 90 0090 1: v03-003 BLS0240 Benn Schreiber 15-Sep-1982 : 
: 4 Obes : Corrections to enable alternate net protocol. : 
ue 0093 1! v03-002 BLS0235 Benn Schreiber 23-Aug-1983 : 
:; 94 0094 1! Pi — ar while searching for existing Link, and : 
: 92 i444 : ensure UBF set up correctly for sending messages. | : 
: 97 0097 1 i-- | ; 

| 

é 

F 


MAILSNETSUBS 
VO4=000 


0 : 

: } INCLUDE FILES 

1 LIBRARY *SYSSLIBRARY: STARLET’; 

1 REQUIRE *SRC$:MAILREQ'; 
LIBRARY *"LIBS:MAILDEF’; 


EXTERNAL ROUTINE 
IBSASN_WTH_MBX, 


$ 
FAOL, 
$F IND_IMAGE_SYMBOL, 
LSREPORT_IO-ERROR; 


EXTE 


RNAL 
MAILSSD_LNM_FILE_DEV, 
MAIL$G_CNCT: $88 


MAI 

MAIL$W_TTCRAN : WORD, 
MAILSCC_SYSFLAGS : $BBLOCK, 
MAILSGL_FLAGS : $BBLOCK; 


EXTERNAL LITERAL 
SMGS$_EOF ; 


GLOBAL 
MAILSL_MBXBUF : 


jolelelelo! 


Be Se Se Se Oe Se Se Se Se Se FH Se Se Se Fe Fe Se Se Se Se Be Fe Ge Se FH Se Se Ge Se Se Se Se Se Se Be FH FF Se Se Se Se Se Se Se Ge Se Se Se Se Fe Se Se Se Se Se Seas 
DOONAN WIN 9 ODO UNE WIN SO OO NAU EWR DOD NAME WN SO OONAY SW O0O@Nn OOo 


a ee ee ee ee ee ee ee ee LL 


www eee ar oe oF oF at ot at ot re RRs isanns 3 OOO 


8 LONG INITIAL(32), 

28 MAILSL-MBXQUO : LONG INITIAL(96); 

28 BIND 

28 PROT_DESC = SDESCRIPTOR( 'MAILSPROTOC 
29 25_BESC = SDESCRIPTOR('PSIMAIL") : 

29 NETACP_DESC = SDESCRIPTOR(' NET:') : 
29 LINK DESC = SDESCRIPTOR('SYSSNET') : 
29 JECT_DESC = SDESCRIPTOR('::'MAIL=' 
29 PREFIX~DESC = $DESCRIPTOR( 'MAILSPROT 
29 -MAJOR = SDESCRIPTOR('MAIL$C_PROT 

R SD"MINOR = $DESCRIPTOR('MAIL$C_PROT 

9 GLOBAL BIND 

29 MAIL$Q_OBJDESC = OBJECT_DESC; 


1 
1 
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‘Assign channel with mailbox 
‘Allocate Syneais memory 

‘Output to SYSSOUTPUT 

'String copy 

‘Enable main ctrl/c handling 

! and disable it : 
‘Read error text from slave and signal 
!SMG input routine 

‘Formatted ascii 

'Image activate and return address 
‘Report io error 


! " NMSFILE DEV’ 

‘Static cnct for inbound connects 
‘Descriptor of attachment file spec 
'Descriptor of SYSSNET translation 
‘Descriptor of protocol if alt input 
'SMG keytable index 

'SMG keyboard index 

'Channel for terminal i/o 
'System-wide control flags 

‘control flags 


‘End of file from SMG$ routines 


‘Channel for inbound logical Link 
‘Transfer address for alt prot. inb. 
! and it's context 

‘Network mailbox channel 


'Size of mailbox buffer 
‘Mailbox quota (3*mbxbuf) 


OL’) : SBBLOCK, ',,routine name 
SBBLOCK, 'X25 image 
$BBLOCK, Heys gel to netacp 
SBBLOCK ‘Logical we look for 
) : SBBLOCK 'Remote mail object 
OCOL_') : $ABLOCK, 
_MAJOR'), 
MINOR"); 


'For debugging private object type 


4 
R 


2 
C 


pP | 
INETSUBS.B3203°° (25. 


+ be +: Nat 


yf3eoct9gs 91:19:58 


! 
! 
1 
SSHR_MSGDEF (MAIL, 126,LOCAL, 


1 
1 
1 
1 
1 (READERR. ERROR) ) ; 
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nee 


(2 
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nee ROUTINE MAILSADDR_EXISTS(PROT_DESC,NODE_DESC,USER_DESC,ADRLST) = 
; FUNCTIONAL DESCRIPTION: 


Check whether the named addressee is already in the List. 
Return true if found, false if not. 


! 
' 
: 
Inputs: 

i prot_desc = address of protocol descriptor 
node_desc = address of nodename descriptor 


! user_desc = address of username descriptor 
! adrlSt = address of address List listhead 


! = = 
BEGIN 
MAP 

PROT_DESC : REF SBBLOCK, | 
NO ‘33 “DESC : REF $BBLOCK, 
USER_DESC : REF Tonk occ 
RDRLST : REF VECTORE2,LONG); 
LOCAL 
bESC : vet Torte LONG], 
ADR : REF $BBLOCK, 
LNK : REF see ore: 
ADR = .ADRLST(OJ; 

Loop through the addressee List 
WHILE .ADR NEQ ADRLST(O) : 
dO BEGIN 
: First check the username 


IF CHSEQL(.USER_DESCCDSC$W_LENGTH], .USER -DESCCDSCSA_ POINTER], 
.ADRCADR_B_NAMCNG], ADRCADR_T~NAME J) 


000900 00 CO COCO OO OF OO NI NINN NIN NIN NINA A AOOAAO 
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WEA AAI. AIA AAAI AIA AANA WANNA ANNI AAAI AAA AINAAI ANN 
BREE EEE FWA POPPIN 2 SS SOOO 
NOAUS WN 0 ODN UE WN OOD NOAM EWN OO DNAUS WN (OVO ONAUE WW OVONOu 


CGOSOSOOOCOCOOOOCOSOCOCOOCO DO COCSOOCOCSCOCCOCOCOCOCOCOCOCOCOOCOOOCOOOOOOOOOOOoOO 


FUSS OS VT BS BS TUT BB BB EB AIAN AIP PI PININIPININPIPUPINPIPIPUDINIDY 4 2 = 8 OS SS Se 


97 
98 

199 THEN BEGIN 

200 ; LNK = .ADRCADR_L_LLNK); 

oo8 ! If protocol and node are 0, and this entry has no LNK pointer, then 
bz this is a match 
05 IF (. Fee | ope sttesery LENGTH] EQL 0) 

06 ODE »D DESCEDS SC$W_LENGTH] EQL 0) 

07 5 AND K FOL on 

08 5 THEN RUE; 

09 5 IF PROT DESC EDSCSU. LENGTH] EQL 0 

19 : THEN BEGIN 

\¢ : Same nodename is a match 

14 5 IF (.LNK NEQ 

15 28 AND (.LNK KB -PNLEN] EQL 0) 

16 5 THEN IF “1 Ports NODE DESC DSC SW SEMEN OBEN) _DESCCDSCS$A_POINTER], 

312 ey NKCUNK_B_NODLEN),LNKCCNK_T_NODEJ) 
18 61 THEN RETURN TRUE? 
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4A 41 4D SF 


4E 49 4D 5F 


SN NIA AAA AO 
AYE" OOONOULE UT 


WAWNANNAANAAN 
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54 4F 
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18-42-19 4 01:10: 
1228087 382 tH : 


5 ya 
rs DI 


If foreign protocol, check protocol name and node name 
ELSE IF (.LNK_NEQ 0) AND (.LNKCLNK_B PNLEN] NEQ 0) THEN 


IF Cree at Coen DESCLCSCSW KENGT 
DSCSA_POINTERJ,.LN 
DE_DESCCOSCSW_LENG 


.PRO 
AND CHS ; 
wl B_NODLENJ,LNKCLNK_T_NOD 


T_DESC 
Gs m0 
NKCLNK_ 


END; 
ADR = .ADRCADR_L_FLINK); 


RETURN FALSE 
END; 
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54 4F 52 


52 50 5F 


52 50 SF 
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foo 


v7 uv 


-AAB: 
- AAA: 
«AAD: 
-AAC: 
oAAF : 
-AAE: 
-AAH: 
- AAG: 


AAJ: 
AAI: 


~AAL: 
AAK: 
AAN: 


— 


~AAM: 
AAP: 


- AAO: 


TH), 


T 


'Move alon 


“ADDRESS 
“ASCII 
“BLKB 


HEN RETURN TRUE; 
g the List 
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P.AAB 
 hoieaitecenin 


-LONG 7 
«ADDRESS P.AAD 


ASCII 

-BLKB 

- LONG 

- ADDRESS 

-ASCII 

-BLKB 

- LONG 

- ADDRESS 

-ASCII 

- LONG 

- ADDRESS 

-ASCII 
KB 


“LONG 1 
“ADDRESS P.AAL 
\MAILS$C_PROT_MAJOR\ 


ASCII 
-BLKB 


“LONG 1 
“ADDRESS P.AAN 
\MAILSC_PROT_MINOR\ 


-ASCII 
-BLKB 


-LONG 1 
-ADDRESS 


-PSECT 


\_NET:\ 


P.AAF 
 ieecameaah 
7 


P.AAH 
\::"MAIL=\ 


P.AAJ 

PCL SPRSTEESE...S 
4 

P.A 

3 

7 

P.A 
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7 
P. AAP 
SOWNS ,NOEXE ,2 
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K_B _PNLEN],LNKCLNK_T_PNAM]) 
ROBE DESCEDSCSA-POIN 
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00000 LINK.CHAN: | 

00004 LINK_TFRADR: | 
BLK 4 

00008 LINK CONTEXT: | 

0000C NETMBX_CHAN: 
-BLKB 4 

.PSECT $GLOBAL$,NOEXE ,2 

00000020 00000 A Jere tt 


al 32 € 
00000060 00004 MAIL$L_MBXQUO: : 
.LONG 9% : 
PROT_DESC= P.AAA 
BESC= P.AAC 
NETACP_DESC= P.AAE 
DESC= P.AAG 
OBJECT_DESC= P.AAI 
EF IX"DESC= P.AAK 
$0 -HAJOR P.AAM 
P. AAO 
aATC $0. ~OBDESC== ReAAl 
LIBSASN_W 
ENTRN LIBSGET vm <SsPuT OUTPUT 
EXTRN LI6B$SCO By R_DX, MAICSENABLE_CTRLC 
EXTRN MAILSDISABLE CTRLC 
.EXTRN MAILSREAD_ERROR Text 
EXTRN SMGSREAD_COM MPOSED_ LINE 
EXTRN SYSS$FAOL OURS IND” IMAGE _SYMBOL 
EXTRN UTILSREPO ; 10 ERR RROR 
EXTRN MAILS$SD_LNM-F 
EXTRN MAILSG_CNCTS MAICSO A TDESC 
EXTRN MAIL$Q QLINPTRAN MAICSO PROTOCOL 
“EXTRN MAILS$L~SMG_KEYTABLE 
EXTRN MAILSL—~SMG-KEYBOA bf 
EXTRN MAIL SU “FTCRAN. MAILSGL_SYSFLAGS 


SEXTRN MAILSGC_FLAGS. SMG$_EOF 
.PSECT $CODE$,NOWRT,2 


007¢ 00000 .ENTRY MAILSADDR_EXISTS, Save R2.R3.R4,R5,R6 > 0305 
SE 08 C2 90002 SUBL2 #8, SP : 

55 10 BC 00 0000 MOVL @ADRLST, ADR > 0331 

56 0c AC D0 9009 MOVL  USER_DESC, R6 : 0340 

10 AC 55 D1 0000D 1$ CMPL ADR, “ADRLST : 0335 
66 13 00011 BEQL «6s 7$ : 

50 1D AS QA 0013 NOV ZBL 29( AD > 0341 
50 00 04 86 cc BC 2D 00 CMPC SUSER RDEste a4(R6), #0, RO, 30(ADR) : 
82 12 $628 BNEd ; 

54 08 AS D0 00022 MOVL $f apr) LNK > 0343 

1 4 AC 00 00026 MOVL PROT_DESC, R1 : 0348 
50 D4 OOO2A CLRL = RO : 


- SRCINETSUBS .B32; 


VAX-11 Bliss-32 V4.0-742 


DISKSVMSMASTER: CMAIL 


: 
ae 
z 


v04 


oc oOo f& ao wo ie) ao —- MNmWNo 
rw Ww nw oOo o or ~~ Ore 
mas Mm ma ~» me mS MMMM 
So o ©& o oO oO oo o oo°oo 
PSPS FS FS FSFE FSFE FS FTS FESS FS SS FS FS STS TS TS SSSR FS TS SSR SSSR SSSR SS SE Te 
-o~ ~~ 
p™ 4 4 
2 2 
ad | 
~ ~~ 
o co 
co w 
a 7 
Oo - 
e i: 4 
a a 
o Oo 
Se Rr 
s oO & 
~ a ~~ 
on -oO 
= ca <a « 
Wn ~ ve ~~ a 
us ~—_w Ww wT <= 
a _~ ~ A@ wine 
a ad 4 <= (Mt aw So . 
ise} m 2 =— «=. * @s ec vA 
~ a J I atm win is 4 
ad oOo ~~ a SS ew Ee a~-o s & 
SRO SRHZHO™ZSHOSRH™AROHOeXe KHOrGC KH-—- <HO 
~NE BN INE 1 OR- ST I OP- ORY OZTY «OR OMe = 
| — 
aw aw 
BOuyuBsIyssoyuyDM JoIMony Goyanvyw On 8 ws 
RKwerwr-OOr-SOe-@O-OF-OoOra wl ra wS>e- Sr oce- 
MSZ Zw IMWYVAVwwoOkt ZOoOckz ZOwod iw 
—- OO OOr-Or-Or-Or-Oltvy ODEZY OMEoctoOvre 


a a a eoaa 

N al w nw oOo Km 
2LWONUY. O OWOCI O MOwWOrs LVWVOVWOM TOM 
GODWIN FT FT TT TT TONUINN OOO OPR-P-P-P-P-P 


DNVODWMOIMAMMMN = YPM EO WOLD WOwTOor ws 
@- O@- Orn WOr Oe Or Or OW @-—OOW —COOCaoO- a0 
—DOVTITNOTVUINT OSI TOUT OTYIT SR NATO 
WOMDOMMPMMUNM ZK—MmMVvavtOode-aeewoatcoo wocm 
oO ve uo. O&O Bu O 
Oo wv rr wn ON Mm 
oa o- o-O own 
Oo wow Wnw ww 
wv wv 
oOo Oo 
oO o 
oOo Oo 
oO - 
ow w 


124 bytes, Routine Base: S$CODES + O0A8 


; Routine Size: 


MAILSNETSUBS 
v04 


5 


PRLS 


WS 
WN SO OONAVULSWN “OVD ONOUESWN—OO®W 


yA ee Sy tt te 


Mronononorononofroforye 


vs 


SGOOCOCCOCCOCOCOCOOOCOOOOOOOOoOoO 


FSW 
COCO OCOOOOOO OO OWWOMCodODCD@ ONIN 


WO OONOAUE WN O CONOUS WN OVOOn 


oOo 
> 


13-Sep-1984 94:19:38 VAX=11 Bliss-32 V4.0-742 


gaa CTRLCAST (LNKDESC) = 
FUNCTAONAL DESCRIPTION: 


i Entered when a CTRL/C is detected while attempting connect to 
; remote node. 


' <3 oe 
BEGIN 
LNKDESC : REF $BBLOCK; 


LOCAL 
DESC : VECTORC2,LONG); 


! 
Cancel network access qio, then fix up ctrl/c handler 


SCANCEL (CHAN=.LNKD sctm W_CHAN]); 


LNKDESCCLNK_V_DEAD RUE; ~ 

ae Mee. FLAGSCMAIF_V_ITERM] 
SCANCEL (CHAN=, mi TTCHAN); 'Cancel our ctrl/c ast 
yaaa CTRLCO; ‘and enable main one 


BESthyy © HRDPSC ELAR T B RO ORG ENA: 
DESCL1) = LNKDESCCLNK 
SIGNAL (MAIL$_CONABORT,1,DESC, MAILS_ SENDABORT); !Signal and unwind 


RETURN 1 
END; 


= ORofononononoWNnononononononocnonononononunn | 2 
=z 


~EXTRN SYSSCANCEL 


-WORD Save R2,R3 
53 000000006 00 9€ 00002 MOV SYSSCANCEL, R3 
5 08 C2 00009 SUBL2 #8, SP 
& 04 AC p 0000C LNKDESC, 
7 2C A2 3C 00010 MOVZWL 44(R2), =(SP) 
6 o1 ce 0014 CALLS #1, SYSSCANCEL 
36 A2 8 17 BISB We. 46(R2) 
11 000000006 90 fl 018 BC MAILSGL {Lacs 
E 000000006 C 000 MOVZWL Malus ep) 
1 FB 00 A CALLS a, SyS$¢ ee 
000000006 00 0 FB 0002D CALLS #0, WA MAIL SENABLE _CTRLC 
6E F Ag 9A 00034 1$: MOVZBL 47(R , SC 
04 AE 0 A2 9E 00038 MOVAB 48 (R9) DESC +4 
007E805A 8F DD 000 p PUSHL 29039 
04 AE 9F 0004 PUSHAB C 
1 oD 0046 PUSHL 
007E8112 BF DD 0004 PUSHL 057 
000000006 99 4 F OO4E CALLS #4 L1BSSIGNAL 
0 1 D0 0005 MOVL R 


P Page 
DISKSVMSMASTER:CMAIL .SRCINETSUBS.B32; 1° 


(4) 


9 


+ ae Nagai 


3; 0408 


RET 


04 00058 


Routine Base: SCODE$S + 0124 


89 bytes, 


3; Routine Size: 
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; Routine Size: 


16-500-19 4 2 Sit} 


14-Sep-1984 
409 1 ROUTINE SEND_STRING (DESC) = 
i i FUNCTIONAL DESCRIPTION: 
413 13 Write string to SYSSOUTPUT 
414 1 
415 1 ie 
416 BEGIN 
0418 2 LIBSPUT_OUTPUT(.DESC); 
0419 RETURN 0 
0420 7 ; 
0000 00000 SEND_STRING: 
«WORD 
04 Ac 000 PUSHL 
000000006 00 oF 000 CALLS 
0 be 000C CLAL 
000E RET 
15 bytes, Routine Base: S$CODE$ + 017D 


+38 VAX=-11 BLi 
Disk SVMSMA 

Save nothing 

DESC 

4 LIBSPUT_OUTPUT 


$-32 V 


742 
TER: MAIL. SRCINETSUBS .B32; 1 


Pa aoe 


Bete Se Se te 


MAILSNETSUBS 1b-$ep-1986 01:19:58 VAX=11_BLiss-32_v4.0-742 Page 1 
VO4=000 If ep-198¢ 12:49:29 DISKSVMSMASTERS (MAIL SRCINETSUBS.B321°° (09 


H $ r 1 ! GLOBAL ROUTINE MAILSPRUNW_HANDLER (SIGARG,MECHARG) = : 
3 6s re § : } FUNCTIONAL DESCRIPTION: : 
3 ¢89 425 1! General handler to print message w/putmsg and then unwind if ; 
; 56 4 § 1! the signal is MAIL$_CONABORT ; 
: 8 4 1 !<< 3 
; 288 428 BEGIN 3 
; 289 429 3 
; 290 0430 SIGARG : REF $BBLOCK, 3 
: 291 0431 MECHARG : REF $BBLOCK; : 
; be ¢ 3 
; 4 BIND 5 
5 Be Be r SIGNAME = SIGARGCCHFSL_SIG_NAME] : SBBLOCK; : 
: 236 04 $ IF .SIGNAME EQL SS$_UNWIND 3 
: $3r 0637 THEN RETURN SSS~CONTINUE; : 
F 339 0439 IF .SIGNAME NEQ MAIL$_CONABORT 3 
3 5 peed THEN RETURN SS$_RESIGNAL; ; 
$ 30¢ 044 IF NOT .SIGNAME $ 
; 044 THEN BEGIN 3 
; 304 0444 ME CHARGCCHF SL meh ey = .SIGNAME é 
; 305 0445 SIGARGCCHF SL Gs) . SIGARGLC HESL_ SIG_ARGS] = 2; F 
: 306 P 0446 SPUTRSGURSGUECESTGARG CHF$L_SIG_ARGS],~ 3 
; 307 0447 3 ACTRTN = SEND_ STRING); : 
; 308 0448 ; pa did SIG ARGS $j = TSIGARGCCHFSL SIG_ARGS] + 2; : 
3 393 0449 IGNAMECSTSS$O_ SEVERITY) = STSSK_WAR ARNING; : 
; 10 0450 eNbe 3 
s «(Sti 0451 3 
3 $18 Boag S 3 
s 31 0453 2 RETU F 
3; «64314 0454 1 END; : 


-EXTRN SYSSPUTMSG 


0004 00000 .ENTRY MAILSPRUNW_HANDLER, Save R2 > 0421 

52 AC DO 00002 MOVL § ig > 0434 

00000920 BF 04 A2 01 00006 CMPL 4(R2), #2336 + 0436 
04 12 0000 BNEG =«'1$ : 

50 01 v0 01 ROVL #1, RO + 0437 

007E8112 BF 04 A2 01 00014 1$ CMPL 4(R2), #8290578 + 0439 
6 13 doic BEQL 2$ : 

50 0918 8F zt OO1E MOVZWL #2328, RO + 0440 

1 04 A2 €E8 00024 2$ BLBS 4(R2), 3$ > 0442 

0 08 aC OD 99 8 MOVL §§ MECHARG, RO > 0444 
oc AO 04 Ad OD ¢ MOVL 4(R2), 12(RO) ; 

62 9 ¢ 1 SUBL2 #2, (R2) > 0445 

By: CLRQ. = = ($P) + 0447 
B8 AF OF PUSHAB SEND_STRING F 
52 DD PUSHL R : 
000000006 00 04 FB 00038 CALLS #4, SYSSPUTMSG : 


ETUNWIND() ; 

TURN 0 
| 
| 


ms Lane TSUBS 


3 


04 
000000006 00 


YSSUNWIND 


85 bytes, Routine Base: S$CODE$ + 018C 


; Routine Size: 


mALLSNETSUBS 18-Sep-1964 91:10:58 VAXeT1 Blissas2 v4 


? 


742 4 
-S SRCINETSUBS.832; 79 eh 


=> 


10SB : VECTORE4,WORDJ; 


IND 

TAPBUF = MAILSG_CNCTCCNCT_ T BUFFER] : SBBLOCK, 
TMPWORD = TMPBUF : VECTO ORE ,QORDI, 
TMPBYTE = TMPBUF : VECTORE: BYTE); 


IF -BAILSGL FLAGSCMAIF_V_ITERM] 
MATLSW_TTCHAN “NEO 0 
THEN ABEGIN 


MAILSDISABLE_CTRLC(); 
IF TERR ($01 0UTCHAN=. MAILSW 
FUNC= “108, SETRODE. ORY [OSM_CTRLCAST, 


10SB= 
Pi: CTRL CAST «. 
SIGNAL (. a7 Vise 
IF NOT .IOSBCOJ 
THEN SIGNAL (. 10SBL03); 


wns 


3 1§ : 5 Wout ine ACCESS_NODE(LNKDESC, CNCTDESC, ALTOBJ_DESC) = . 
: + r ? FUNCTIONAL DESCRIPTION: 

: 9 459 i Perform the access qio. 

3 0460 ! 

3 ¢ Bee) ' INPUTS: 

106 ! 

3 4 B78 : inkdesc = address of Ink ys rhe et block 
: 5 464 ! cnctdesc = address of cnct b 
; 6 0465 ! 

3 7 046 leo 

3 8 046 BEGIN 

3 $3 0468 

; 0 0469 P 

3 4 Beee LNKDESC : REF S$BBLOCK, 

3 ¢ 471 CNCTDESC : REF $BBLOCK 

; 33 O47¢ ALTOBJ_DESC : REF $BBLOCK; 

> 334 047 

$ 35 0474 BUILTIN 

3 $38 0475 NULLPARAMETER; 

; 37 0476 

; 338 0477 LOCAL 

3 4 0478 

; 340 0479 DESC : "VECTORL2, ONG], 

3 «(341 0480 CNFREC SBBL OCK CNF ¢ LENGTH], 
; a0§ 0481 PTR : "REE VECTORE ,BYTE] 

: 34 048 PTR1 : REF FVWECTORES BYTE ES, 


vuvUU 
Oo 
S 
o 
io 


CQoooooooooocooo 
PPP & 
——DOOOOod0oOSoo 


AAQOMIMIMNVIVIVIVIV 
—OOONOUS WMO 


RAMU OOo TRUM r UN OO 


Set up configuration record 


CNFREC Ps vo. VERSION) = e' C_VERS; 

CNFRECELCNF_B_ECO) = ie ETO; 

CNFRECCCNF_B_CU TECO “6; 

CNFRECCCNF_B~ 33 CNF_C VAXVMS ; 

CNFRECCECNF-L_O 

CNFRECCCNF-B_ RFR =. CNCTBESCLCNCT -B_FILRFM]; !Record format 


WNW AAAI AA WIAA AAAAAAAA 


o 


Ww 
= 
~N 
So 
> 
co 
o 
PROPOPONONOPOMONONINIWWIWI WWI WIN NINN POPPIN POPONNONUPOPOPUNGNINIPIPUNNUNINUDY) 2 2 2 
wo 2 * 


ETE TETErE rere rere rererel 
NNO O 
moO 0Oon 


WALA 


~u 


MAILSNETSUBS 1S-se Sep-1984 01:10:5 VAX=11 Bliss-32 V4.0-742 
VO4=000 14- 371984 Mi 39 DISKSVMSMASTER: CMAIL.SRCINETSUBS. B32; yw ( 


“No 


| 
| 
; t? R2i8 CNFRECCCNF BRAT] = .CNCTDESCCCNCT_B_FILRATIJ; ! and attributes | 
. we bai We want to send in block mode only if the input file has var len records 
: 78 Belz } or VFC format | 
; 78 §21$ ENFRECCCNF_L IOMODE) = | 
; 79 0518 IF Ct CNFRECLCNE B_RFM) stot FABSC el OR (.CNFRECCCNF_B_RFM] EQL FABSC_VFC)) 
; 380 0519 THEN CNFRECCONF_L_IO IOMODE] = CAF M_BLKSEND; 
: 381 0520 2 CNFRECCCNF_B_SPAREIT = 0; 
3 B¢ 0521 CNFRECLCNF “B_ “SPARE2) = 0; 
; 05 ; ! 
; $ee 05 : Set up the ncb. the format is: : 
$ HH be : ; NODE: :"‘MAIL=/<word of 0><count><'count' bytes><16 = ‘count’ 0's>' 
s 387 0526 PTR = CHSMOVE ( .LNKDESCCLNK_B_NODLEN] ,LNKDESCCLNK_T_NODE], TMPBUF ); 
; 388 0527 . NULLPARAME | ER(3) 
; 389 0528 THEN PTR = CHSMOVE(.OBJECT_DESCCOSC$wW -LENGTH , OBJECT_DESCCDSCSA_POINTER],.PTR) 
: 390 0529 2 ELSE PTR = CHSMOVE(:ALTOBJ-DESCCDSCSH-L | 
: 391 0530 -ACTOBJ  DESCEDSESA  DOINTERI, .PTR) ; 
; 392 0531 PTRCO) = 2C'/'; 
; 393 O26 PTR = PTRE 
: 394 053 PTRLO] = pTRt1 = = 0; ‘Create word of 0 
; 395 0534 PTR = 
; we 0535 PTRCO] = NF. _C_LENGTH; !Set Length of configuration data 
: 397 0536 § PTR = PT i; f 
: 398 0537 2 PTR = CHSMOVE(CNF_C C_LENGTH,CNFREC,.PTR): !move configuration data | 
; 399 L 0538 2 XIF 16-CNF_C_LENGTH GTRU 0 
; 400 U 0539 XTHEN ; ; 
: 401 U 0540 PTR = CHSFILL(0,16-CNF_C_LENGTH,.PTR); ‘FILL rest with Os’ 
: 402 0541 ZF I 
; 403 o2e$ PTR(CO) = i 'And a closing quotes 
> 404 054 2 PTR = PTR(1 
: 405 0544 DESCLO] = Mal. - TMPBUF; ‘Create descriptor of NCB 
; 406 0545 § DESCC1) = TMPBUF; 
; 407 0546 ! 
; 408 0547 2 ! Do Access gio 
: 409 0548 2! 
; 410 P 0549 2 STATUS = wsntemnci (717° 10$ pees Ses 
3 411 P 0550 2 CHAN=.LANKDESCCLNK_W_CHAN], 
> 412 P 0551 ’ 10SB= ioss,. | 
: 413 0236 P2=DESC) 
3 416 055 
: 415 0554 IF .STATUS 
: 416 8322 THEN STATUS = .10SB(0); 
: 617 556 
; 418 0557 IF gt FLAGSCMAIF_V_ITERM] 
7 419 0558 AND .MATL$W_TTCHAN “NEO 0 
: 420 559 THEN BEGIN 
: rtf 560 SCANCEL (CHAN=. tite TTCHAN) ; ‘Cancel our ctrl/c ast 
s «6 ¢ 561 MAILSENABLE_CTRLC() ‘and enable main one 
: 42 3206 END; 
3; 424 56 | 
:; 425 0564 RETURN .STATUS 
: 426 0565 1 END; 


KSVMSMASTER: CMAIL.SRCINETSUBS .B32; 
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OIM-VERREVRB I 1g i-BE i BWMYMR BBV — VOM T BV IT Eee OOO. I~ BBB 
oi | a 
“ddd BIjIGOGIIOGINN JIVTIYON YI IOOGO IUO9 UB UNOMOKMUIIGYY UV OZOw 
wor>r>r>r>Ov- CGUTAevvev>rr rac tJOVIO>I>>>>C 0 00Owrae> era vrew>>a>rorare> 
oa 3Booo00CO DMOVwead jjDD4DOO Ie IDs NO ZOOOO YUEWEZOIUICOCOE wn ZOOZOOCOICSO 
SB ESSE EM1G O48. 4.48 SE OSG4 VME VESEE CUOUSEVELEVS-- OES OS SSwYES 
G 
(7.) 
n” 
w 
w a od 
vw fr ef eG o> ad ed 
<= -= N mT w oOo ~~ 
Oo pe ne tye tT ae ah te tae Ser i Lat tt A a ah ep ™ DOMNWNO <u DOM 
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Oo OOOCOCOCOOOCOCOCOCOOSOCSOSOSOSSOCOCOSSSCSOSOCSOOSOCOSOSSOCSOSOOOOOOCOOOOoOoOS 
2 WWWWWRK NM DVVOOVe VET DDO DDVYVDOCOCO Ve Me WOT OLD UNO DO - ODOwWOCO 
ee ACOOCOCOVWO UP-P OOPOMMOuU WO WML OOCOR-O— OO — ODOOWUO — Oe ON ONO OOru 
ee 
Oo 
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; Routine Size: 287 bytes, Routine Base: S$CODES + 01E1 


13 
MAILSNETSUBS 1h-Sep-19 4 4 Of: 19: 58 VAX=-11 Bliss-32 V4.0-742 Pa age 17. 
v04 14-Sep-1984 12:4 DISKSVMSMASTER:CMAIL.SRCINETSUBS.832;1 (7) | 
3 22 90 000¢D MOVB = #34 (PTR}* : 0542 : 
50 é§ 3 OD MOVAB  TMPBUF : Oete ; 
18 AE 0 D SUBL3 RO, PTR, RO ESC : : 
1c OAL $9 E 0000 OVAB TMPBUF, DESC+4 : 0545 F 
—E 7C 000DC CLRQ = =( SP) + 0552 : 
7E 7¢ 900 CLRQ (SP) : : 
28 AE 3 OE PUSHAB DESC : ; 
7E 7C OO0E CLRQ =(SP) : : 
7E 04 OO0E CLRL = = (SP) : ; 
20 AE 9F O00E7 PUSHAB 1058 : ; 
5 po OOEA PUSHL #50 : F 
7E 2c A638 OE MOVZWL 44(R6), -(SP) : ; 
7E 04 OOOF CLRL isp) : ; 
6A OC FB OO0F CALLS #12, $yssaiow : ; 
32 50 DO OOOF MOVL RO, STATUS : : 
0 52 £9 00F8 LBC —« STATUS Bs : ; 
52 6— 3¢ OO0FB MOVZWL 10sB. STATUS : ; 
15 000000006 00 06 E1 OOOFE 8$: BBC MAILSGL FLAGS, 9$ : ; 
67 BS 00106 TSTW mAILSue TTCHAN : ; 
11 13 0010 BEQL 9$ : ; 
7E 67 3C OO010A MOVZWL MAILS$W_TTCHAN, -(SP) : : 
000000006 00 01 FB 0010D CALLS #1, SYSS$CANCEL ; ; 
000000006 00 00 FB 00114 CALLS #0, MAILSENABLE_CTRLC : ; 
50 52 DO 0011B 9$: MOVL STATUS, RO > 0564 : 
04 O011E RET + 0565 ; 


o fo QOO°CoOo 
vw UW UV 
Cor ff WU 
- & @nNusS 


fF 13 
MAILSNETSUBS 16-Sep-1984 01:10:5 VAX=-11 Bliss-32 V4.0-742 Page 18. 
yOet O08 18-3087 138 9:4 :2 DISKSVMSMASTER: CMAIL. SRCINETSUBS.B32: 1° (8) | 
> 428 66 1 ROUTINE CHECK_PROTOCOL_VERSION (IMAGE_DESC) = 
: 629 67 1 S44 
; é 9 68 | : FUNCTIONAL DESCRIPTION: 
; 4 § 355 1} Ensure that the symbols MAILSC_PROT_MAJOR and MAILS$C_PROT_MINOR 
: 2 f} : are defined, and that they have acceptable values 
: 435 ig 1 ine | 
3 ? $ geee BEGIN 
; 438 b278 LOCAL 
; 439 $7 MAJOR_P, 
; rr | bere MINOR_P; 
: 46 P 0580 IF _LERR(LIBSF IND_IMAGE_SYMBOL(.IMAGE_DESC,SD_MAJOR,MAJOR_P);, 
: 44 0581 RETURN STATUS); 
: 4464 0386 IF .MAJOR_P NEQ 1 
7 445 058 THEN RETURN SIGNAL(MAIL$_IVPROTVAL, 3, 
3 74 Boge SD_MAJOR, .MAJOR_P,.IMAGE_DESC); 
3: 448 P 0586 IF _LERR(LIBSF IND_IMAGE_SYMBOL(.IMAGE_DESC,SD_MINOR,MINOR_P);, 
: rc 0387 RETURN [STATUS); 
; 451 0589 IF .MINOR_P NEQ 1 
; 45 0590 THEN RETURN SIGNAL(MAIL$_IVPROTVAL,3, 
3 $33 0331 SD_MINOR, .MINOR_P,.IMAGE_DESC); 
; 455 $298 RETURN TRUE 
; 456 0594 1 END: 
000C 00000 CHECK_PROTOCOL_VERSION: 
-WORD Save R2,R3 ; 0566 
53 000000006 00 9€ 00002 MOVAB LIBSFIND_IMAGE_SYMBOL, R3 : 
52 FD77~—Ss CF 3 00009 MOVAB SD_MAJOR> R2 3 
5E 08 C2 OO00E SUBL2 #8, SP 3 
4004 8F BB 00011 PUSHR #*M<R2,SP> ; 0581 
04 AC DD 00015 PUSHL  IMAGE_DESC 3 
63 03 FB 00018 CALLS #3, LYBSFIND_IMAGE_SYMBOL 3 
40 50 €9 0001B BLBC STATUS, 4$ : 
01 GE D1 S001 CMPL  MAJOR_P, #1 ; 0582 | 
A 13 00021 BEQL «= : | 
04 AC OD 900 3 PUSHL IMAGE_DESC 3 0584 | 
04 Ag DD 000 § PUSHL MAJOR_P $ 
52 DD 000 PUSHL R2 : 0583 
1E 11 00028 BRB 2$ 3 
04 Ag 9F 00020 1$: PUSHAB MINOR P : 0587 
1¢ Ad 9F 000 PUSHAB SD_MINOR $ 
04 at DD 000 PUSHL  IMAGE_DESC : 
63 FB 00 CALLS #3, LIBSFIND_IMAGE_SYMBOL : 
32 0 € BLBC STATUS, 4$ : 
1 06 AE D1 CMPL M{NOR_P, #1 : 0589 
19 13 4 BEQL 3 : 
04 AC BD 0004 PUSHL IMAGE_DESC ; 0591 


] 


MA 


S-deoct9pe 01:10:58 yA 


08 AE BD 00045 PUSHL_ MINOR P 
C Ad 9F 0004 PUSHAB SD_MIROR 
03 DD 00048 2s: PUSHL # 
00768132 BF DD 4p PUSHL #8290610 
000000006 00 05 FB 0005 CALLS #5, LIBSSIGNAL 
04 O005A RET 
50 01 00 0005B 38: MOVL #1, RO 
04 0005E 4$: RET 


; Routine Size: 95 bytes, Routine Base: S$CODE$ + 0300 


v0 


-—— 


H 13 
vou-006 eSepm1986 42:40:29 DISKSVMSMAS TERS CMAIL-SRCINETSUBS.832:1°" (39 


: $38 95 1 ROUTINE TRY_CONNECT(LNKDESC,CNCTDESC,ALTOBJ_DESC) = | 
: 460 7 yin | 
: 461 98 1! Try to connect with the remote node, ensuring that a connect 

; rhe 599 1 ! confirm message is received. 

; 46 600 1: 

3; 464 601 1 in. 
; 465 60 BEGIN 
$ re¢ 060 MAP 
; 46 0604 LNKDESC : REF $BBLOCK, 
3 re 0608 CNCTDESC : REF $BBLOCK; 

; 470 60 BUILTIN | 
3; 471 0608 NULLPARAMETER; 

3 467 0609 

; 47 0610 LOCAL 

: 474 0611 STATUS, 

; «475 pole OBJ PTR 

: 476 061 PTR reer VECTORC, gevte). 

: 477 0614 2 PTR1 : REF S$BBLOCK 

; 478 0615 

; 479 8918 BIND 

; 480 061 TMPBUF = MAIL$G weg? F332! T_BUFFER] : $BBLOCK, 

; 481 0618 TMPWORD = TMPBUF : CTOR “BORD. . 

482 0619 IMPBYTE = TMPBUF : VECTORE BYTES, | 
; 483 0620 QIOSB = LNKDESCCLNK_Q 6 1osBs” - VECTORE,WORD); 

; 484 0621 
; 485 0622 2 OBJPTR = 0; 
; 466 06235 IF NOT NULLPARAMETER(3) 

: 487 0624 THEN OBJPTR = .ALTOBJ_DESC; 

; 488 0625 

; 489 0626 INCRU I FROM 1 TO 5 

; 490 0627 DO BEGIN 

3; 491 0628 ! 

3 492 +434 i Try up to 5 times to access the remote node. The extra times 

; 4693 0630 3 ' are done in the instance that the connect was made but we 

: rp $63) 3 failed to read the mailbox. 

: 496 $e38 4 iF NOT (STATUS = ACCESS NODE (.LNKDESC,.CNCTDESC, .OBJPTR)) 

3; 497 0634 THEN EXITLOOP; 

; 498 0635 ! 

Z 344 boss : Read the mailbox to get the connect confirm message 

; 501 P 0638 4 IF (STATUS = $Q1]0W(CHAN=.LNKDESCCLNK_W_MBXCHAN], | 
3 206 P 0639 4 FUN et 9 READVBLK, 

; 50 P 0640 4 10S8=01058, 
; 4 P 0641 4 P1=TMPBUF , 
; 505 0642 4 2=.MAILSL MBX BUF )) | 
: 506 0645 4 AND (STATUS = ,Q10SB[0]) : ; 

: 507 0644 4 AND (. TAPUORDEO]- EQL MSG$_CONFIRM) ‘ensure it's a connect confirm 

; 508 0645 4 THEN BEGIN 

; 509 Bo06 4 PTR1 = TMPBYTEL4) + .TMPBYTEC4) + 2; 

: 219 Oss ? te = .PTR1 - 1; | 
: 215 649 4 i See if receiver is up to block mode transfer. Assume 1 block 
3 a7 $20 ? transfers for now. 


<=z 
om 
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13 
1b-Se0-1984 91:19:38 VAX-11 Bliss-32 V4.0-74 


+ oes Na 


$ 15 6 § 5 Se als} EQL CNF_C_LENGTH) 

3 1 6 4 AND NOT .PTRICCAF-V PLESEND) 

a 654 2 AND « OP TRILCNE B_VERSION) GEQU CNF_C_VERS 

; 318 655 THEN IF Pals Syd B_ECOJ)<0,8,T> ea oe C_E 

: 519 6 6 4 EN LNKDESCCLNR_V_BLKMODE] = .PTRICCNF_9 CBLKRECV]: 
: 0 6 4 EXITLOOP; 

; 1 bees END; 

ss 5 Reed i we failed to read the connect confirm. Issue a Deaccess and 
3 2 : ved try again. 

3; 3 § P ages $010W(CHAN=. LNKDESCCLNK_W_CHAN], 

; > P 0664 UNC=10$_DEACTESS, 

: 528 0665 10S8=Q1058); 

; 529 0666 STATUS = SS$ NODATA; 

S| 0667 END; TlLoop 

3 So) 0668 

3 236 0669 Fa ~ STATUS 

3 33 0670 1€E 


- O3FC 00000 TRY_CONNECT: 
WORD Save R2, a gh’. oR5,R6,R7,R8,R9 


59 000000006 00 9€ 00002 MOVAB SYS$QI0 
58 000000006 00 9€ 00009 MOVAB IMPBUF. "a8 
54 04 AC DO 00010 MOVL § LNKDESC, R4& 
57 D4 00014 CLRL  OBJPTR 
03 6C 91 00016 CMPBs«CAP), #3 
09 1F 00019 BLSSU 
0c AC 05 0001B TSTL 12 (AP) 
04 13 QOO1E BEQL 
57 0c AC DO 90026 MOVL § ALTOBJ_DESC, OBJPTR 
56 01 DO 00024 1$: MOVL #1, I 
57 0D 00027 2$: PUSHL  OBJPTR 
08 AC DD 00029 PUSHL CNCTDESC 
54 DD 0002C PUSHL  R4 
FEGF OCF 03 FB 000 é CALLS #3, ACCESS_NODE 
55 20 D0 000 MOVL RO. STATUS 
5c g 59 00 BLBC STATUS, 3$ 
7— 7C 00039 CLRQ = = (SP) 
ve 7 v0 B CLRQ = (SP) 
00000000° 06 Dd 9008p PUSHL  MAILSL_MBXBUF 
a bp 004 PUSHL RB 
7E 7C 00045 CLRQ. = (SP) 
16 AG OF 00047 PUSHAB 20(R4) 
31 bp O04A PUSHL #49 
2A «AG 3C 00046 MOVZWL 42(R4), -(SP) 
7E D4 000 CLRL sis) 
oC FB 000 CALLS #12, SYS$Q10W 
: D0 000 MOVL 0, STATUS 
5 5 058 BLBC TATUS, 4$ 
14 Aa 3C 00058 MOVZWL 20(R4) STATUS 
55 £9 oF BLBC 4$ 
68 61 00062 CMPW fmpuoad, #49 
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; Routine Size: 


K 13 
16-Sep-1984 01:10: VAX-11 Bliss-32 V4.0-742 P 3 
14-Sep-19 ~ 93:19:38 DL SKSVMSMASTER<CMAIL, SRCINETSUBS.B3201°" (10) 


malt ees suas 


4 5 4! ! ROUT INE CONNECT _LINK(LNKDESC,,PROTOCOL_DESC ,NODE_DESC,CNCTDESC) = | 
3 i ! } FUNCTIONAL DESCRIPTION: | 
3 83 Ne : Make an outbound connection with a remote node 

5 $] er ! : INPUTS: 

: 4 ors 7! lnkdesc = address of lnk descriptor block 

: 5446 80 1! protocol_desc = address of protocol descriptor 

; 545 81 1! node_desc = address of descriptor of node name 

3 5ef Ht ! : cnctdesc = address of cnct block for message 

3 48 0684 1 !-- 

; 549 0685 BEGIN 

; 550 0686 

3 53) 0687 MAP 

; 226 0688 LNKDESC : REF S$BBLOCK, 

; 33 0689 PROTOCOL_DESC : REF S$BBLOCK, ' 

; 554 0690 NODE _DESC : REF $BBLOCK, 

: 555 0691 CNCTBDESC : REF S$BBLOCK; 

; 556 069 

: 5337 069 LOCAL 

; 558 0694 STA 

; 559 0695 PTR : REF VECTORC,BYTE), 

; 560 0696 PTR1 : REF LOCK 

; 561 0697 TRNLNMLST : SITMLST_DECL(ITEMS=1), 

3 86 0698 DESC : VECTORC2 LONG) 

: 56 0699 DESC_1 : VECTORC2,LONG); 
: 564 0700 

; 565 0701 IND 

; 566 070 TMPBUF = MAIL$G_CNCTCCNCT_T_BUFFER] : $BBLOCK, 

: 567 070 TMPWORD = TMPBUF : VECTORT,@ORD], 

; 568 0704 TMPBYTE = TMPBUF : VECTORL,BYTEJ, 

: 369 0705 QIOSB = LNKDESCCLNK_G_10SB1 : VECTORC,wORD); 

; 571 0707 2 IF NOT .LNKDESCCLNK_V_ALTP) 

3 276 0708 THEN BEGIN 

; Sr 0709 ! 

s 574 0710 ! Use DECNET 

; 575 0711 : 

: 576 Orie ! 

3 S77 071 ! Assign a channel to _NET. Then, attempt to access the remote 

Poe we 

; 580 0716 4 if (STATUS = LIBSASN_WTH_MBX(NETACP_DESC | 
; 581 0717 4 MAILSL_ABXBUF ,MAILSL_MBXQUO,LNKDZSCCLNK_W_CHANJ, 

3 oR o718 4 LNKDESCCLNK_W_MBXCHAN))) 
: 287 8h 4 THEN STATUS = TRY_CONNECT(.LNKDESC,.CNCTDESC); 

; 585 721 ' Check for control/c typed after we switched handlers. unwind if | 
3 286 r ; ctrl/c typed. | 
; 588 726 iF .MAILSGL_FLAGSCMAIF_V_CTRLCFLJ | 
3 34 725 4 THEN BEGIN | 
3 90 7 $ 4 MAILSGL_FLAGSCMAIF_V Head. 5 9; 

; 591 0727 4 SDASSGNTCHAN=.LNKDESCELNK_W_CHANJ); 
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: g f § 4 SIGNAL (MAILS. CONABORT,1,DESC,MAILS_SENDABORT); !Will unwind ; 
: 594 730 : if NOT * STATUS ° 
; 595 731 4 THEN BEGIN ; 
: 38 7 ¢ 4 SDASSENCCHANS  LUKDESCELNK W_CHAN]); : 
; 59 7 4 IF NOT .LNKDESCCLNK_V_DEAB)~ | : 
; 598 734 2 THEN (SIGNAL (ATLE bP GL INK 1 -NODE_DESC,.STATUS); ‘ 
: 599 07 5 §1§] = STATUS) | : 
; 600 736 4 ELSE RETURN MAILS tok tak H 
; 601 0737 ND; 3 
; 60 0738 RETURN * STATUS $ 
; 60 0739 N 3 
; 604 0740 ELSE BEGIN 3 
; 605 0741 ! PF 
: 606 Bets i Alternate protocol. Translate MAILSPROTOCOL_pname ‘ 
; 607 074 i If it translates, use that for the image name. If it doesn't . 
; eit og: translate, use pname_MAILSHR | : 
; 610 0746 PTR = CHSMOVE(.PREFIX pescCoscsy LENGTH], : 
; 611 0747 REF IX_DESCCOSCSA wis » TMPBUF ) ; ; 
3 ol¢ 0748 PTR = CHSMOVE(. PROTOCOL DESTCDSC$W_LENGTH 3 
: ai? ore? PROTOCOL_DESCCDSCSA_POINTER], .PTR); : 
; 615 0751 pesee = .PTR - _TMPBUF ; 3 
; 616 O76 DESCL1) = TM ; 
3 617 P 075 ; SITMLST INITCITMLST= TRNLNALST, 2 
; 618 P 0754 (ITACOD=LNM$_STRING, BUFADR=.D DESCCII, ° 
i $19 0755 3 BUF STZ=NAMSC_MAXRSS ,RETLEN=DESC)); E 
Hy rea P 0757 3 IF NOT STRNLNM(ATTR=ZREF (LNMSM CASE_BLIND), : 
3; 622 P 0758 ; TABNAM=MAILS$SD_LNM_FILE_DEQ, ; 
; 623 P 0759 LOGNAM=DESC, ; 
> 624 0760 4 TTMLSt= TRNLNMLST) 3 
> 625 0761 4 naa BEGIN ; 
; 626 44 & = CHSMOVE(.PROTOCOL_DESCCDSC$W_LENG ° 
3; 627 0763 4 -PROTOCOL DESCCDSCSA wo ltaéRd. TMPBUF ) ; : 
: 628 0764 4 PTR = CHSMOVE (8, UPLIT(' vARL LSHR'), ag : 
; og? 0765 4 DESCLO] = -PTR = TMPBUF; : 
; 630 0766 4 3 
; 631 0767 3 ELSE IF .TMPBYTECO] EQL XC" $ 
§ O36 0768 4 THEN BEGIN 3 
s 63 0769 4 ! 3 
3; 634 0770 4 ! If it has a leading percent, then strip it off and attempt : 
3; 635 grr 4 ' to connect to the et aa RS, 5 It should pave the format 

; 636 ote 4 ' node: :*'task=taskname"’ *“"TASK=MAILX’’ for instance. 

5 oa? 14 ? If successful . mail with aes mail-11 with the remote slave 

; 639 0775 4 Beste = peseh? * i; 

; 640 0776 4 DESCL1) = .DESC ® U3 

3: 641 0777 4 DESC_1 9 = .DESC 93 

3 O46 0778 4 DESC" 101) = .DESCL1); 

3; «464 0779 4 IF NOT CHSFAIL(PTR = re CHC. R ttt. -1€0),.DESC_1£13,2C':")) 

> 644 780 4 THEN DESC_1(0 PTR - 3H “101; 

3; 645 781 4 DESC_1(0) = mi DESC a Hae ODF) : ‘Descriptor of node name | 

: 046 7 § 4 Sree di DESC_1(03,.DES i Witneaest LNK_T_NODEJ); 'Also put in Lnkdesc 

> 64 0783 4 DESC_1€1) = LAKDESCELNK TN 

3; 648 0784 4 LNKDESCCLNK_V_ALTP) = FR 
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: 649 0785 4 LNKDESCCLNK_B_NODLEN] = 0; 
: 650 7 $ IF (STATUS = CIBSASN_WTH MBX(NETACP_DESC 
> 651 7 MAILSL_MBXBOF ,MAILSL_MBXQUO,LNKDESCCLNK_W_ SHANI, 
: 6 ¢ 788 LNKDESCCLNK_W_MBXCHAN])) 
; 6 789% THEN STATUS = TRY ~CONNECT (= ENK KDESC, .CNCTDESC, DESC); 
: 654 9730 4 LNKDESCCLNK_B_NODLENJ~= .DESC_iC0J; 
: 655 791 & IF NOT .STATUS 
; 696 0796 2 THEN BEGIN 
: 65 079 SDASSGN(CHAN= LNKDESCCLNK_W_CHANJ); 
; 658 0794 5 IF NOT .LNKDESCCLNK_V 
: 659 0795 6 THEN (SIGNAL (MAILS LOG. i 1,DESC_1,.STATUS); 
; 660 0796 § ENRD L_STS] = .STATUSS 
; 661 797 ELSE RETURN MAIL MLOSLT ne 
; 662 0798 4 E 
; 66 0799 4 RETURN -STATUS: 
> 664 9800 END; 
: 665 801 DESC ~1163 = -PREE 1X DESC DSC$w -LENGTH -1; 
: 666 080¢ DESC~1C1) = .PREFIX~DESCLDSCSA~ PGINT ER); 
: 667 P 080 IF _ERR(LIBSF IND IMAGE SYMBOL (DES DESC 1 ,LNKDESCCLNK_L_TFRADR]);, 
> 668 0804 - RETORN ETA ATUS); 
: 669 P 0805 IF _ERR( CHECK PROTOCOL VERSION(DESC);, 
: 670 0806 : ETURN .STATUS); 
: 671 0807 RETURN (.LNKDESCCLNK_L_TFRAOR]) (LNKDESCCLNK_L_CONTEXT), 
; 67¢ 0808 3 OOT"CONNECT, 
: 67 0809 3 PROTOCOL “DESC, 
> 674 0810 3 NODE _DESC 
: 675 0811 3 MAIL$~LOGLINK 
: 676 OB1¢ 3 NCTBDESCCCNCT_B_FILRATJ, 
: 677 0813 3 CHC TDESCCCNCT-B FILRFMJ 
: 678 0814 3 MAILS$GL_SYSFLAGS<16,16,0>, 
: 679 0815 4 (IF .MAICSGL_FLAGSCMAIF V_ATTACHMENT) 
: 680 0816 4 THEN MAIL$O_ATTDESC 
: 681 0817 3 ELSE 0)); 
; 68 0818 2 END; 
; 68 0819 1 END; 
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MODNS OOo 
vw 
Cc 
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: 
0 
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SOoQoooooooo 


NOOTOOMIO ODO 
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000000006 00 


1 
\_MAILSHR\ 
SYSSDASSGN, SYSS$TRNLNM 
Save R2,R3,R4,R5,R6,R7,R8,R9.R10,R11 
MAILSL MBxGU0, R rii 
TMPBUF - 
NETACB best. Ro 
#36, SP 
LNKDESC 
#3 46 F5C Re 5$ 
tLines 
R11 
MAILSL_MBXBUF 


#5, LIBSASN_WTH_MBX 


} 
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a D MOVL STATU : ; 
ap 8 pg 09 3 BLBC er arog Hg : ; 
10 AC DD B PUSHL (CNC CTbEgc + 0719 ; 
56 DD 00 PUSHL R : ; 
FEF2 CF : FB 0004 CALLS » TRY CONNECT : : 
2 D 04 MOVL STATU : ; 
A 000000006 00 48 1$: LBC Riis FLAGS+1 + 0724 ; 
000000006 60 1 §A 4 BICB2 AICSGL STAéset t 0726 ; 
E 2c Ab 3C 00056 MOVZWL ating) (SP) + 0727 F 
000000006 00 01 FB 0005A CALLS SYESDASSGN : : 
007E805A 8F DD 00061 PUSHL #85903 + 0728 ; 
10 AF OF 9067 PUSHAB DESC : ; 
0 DD 0006A PUSHL : : 
007E8112 BF DD 0006 PUSHL #8290578 ; : 
000000006 00 04 FB 0007 CALLS #4, LIBSSIGNAL : : 
0 38 9 00079 2$ BLBC STATUS, 3$ + 0730 F 
0132 31 9907¢ BRW 14$ : ; 
7E 2c «6 A6 3C OOO7F 38 MOVZWL 44(R6), -(SP) + 0732 : 
000000006 00 01 FB 00083 CALLS #1, SYSSDASSGN : : 
3 2E AG 01 é] 0008A BBC #1. 46(R6), 4$ + 0733 ; 
0117 31 O008F BRW 13 : ; 
58 DD 00092 4$ PUSHL STATUS + 0734 ; 
0c AC bp 00094 PUSHL NODE_DESC : : 
OOFA 31 00097 BRW 12$ ~ : ; 
50 3c = AD-—s«DO «O009A 5S MOVL_ PREFIX_DESC+4, RO + 0747 : 
6A 60 38 a9 28 0009E MOVC3 PREFIX"DESC, (RO), TMPBUF + 0746 ; 
57 08 AC dO 000A3 MOVL PROTOCOL DESC, R + 0748 ; 
63 04 87 67 $e 000A7 MOVC3 (R7 actR?) (PTR) ; 0749 3 
50 6h é QOOAC MOV TRPRUF RO : 0751 ; 
OC AE 53 50 C3 OOOAF SUBL3. RO, PTR ¢ : : 
10 AE 6A 9E 000B4 MOVAB TMPBUF, +4 : 0752 : 
50 146 AE 9E 00088 MOVAB TRNLNMLST, $S$ITMBLKPTR : 0755 ; 
BO OOO200FF 8F DO 0008¢ MOVL #131327, (S$$ITMBLKPTR)+ : 
80 10 AE DO 000C MOVL  DESC44,  ($$ITMBLKPTR)+ ; 
80 OC AE 9E 000C7 MOVAB DESC, (S$ITMBLKPTR)+ : 
80 D4 000CB CLRL = ($S I TMBLK : 
14 AE 9F 000CD PUSHAB TRNLNMLST : 0760 
7E D4 00000 CLRL = = (SP) ; 
146 AE OF 90002 PUSHAB DESC ; 
000000006 00 9F 000D PUSHAB MALL SSD NM FILE_DEV ; 
10 AE 02000000 8F oO 90008 VL: #33554432, TO(SPY ; 
10 AE 9F OOOE PUSHAB 16(SP) F 
000000006 00 05 FB 000E6 CALLS #5, SYSSTRNLNM : 
16 5 OO0E BLBS. RO. 7$ : 
6A 04 87 6 OOF MOVE (R?), @4(R7), TMPBUF : 0762 
63 O3FO C9 8 28 OO0OF mcVC3) #8 CAL Q, (PTR) > 0764 
30 6A 5 OOFB MOV TMPBUF, RO > 0765 
5 50 dork SUBL RO yy DESC ; 
OOAF 31 00103 6$: BRW 15§ : 0757 
6A 91 0106 7$: CMPB  =s TMPBYTE, #37 : 0767 
F8 if 01 BNEQ 6$ : 
C AE OD 0108 DECL : 0775 
0 AE 06 01 : INCL  DESC#+4 : 0776 
C AE 7D 0011 MOva DESC, DESC_1 : 0777 
3A 3A 00116 LOCC #58, DESC_T, @DESC_1+4 : 0779 
2 12 0011C¢ BNEQ 8$ ; 
1 D4 OO11E CLRL : 
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53 51 DO 00120 8$: MOVL 1, PTR ‘ : 
06 1 O1 BEQL 9$ : ; 
04 AE 53 08 AE C3 001 SUBL3 DESC_1+4, PTR, DESC_1 t 0780. ; 
50 04 AE DO 00108 9$: OVL DESC a RO ; 0781 ; 
iF 50 D1 O01¢eF CMPL RO, 34 : ; 
03 1B 00132 BLEGU 10$ : : 
50 1F DO 00134 MOVL #31, RO : ; 
04 AE 50 D0 00137 10$: MOVL_ RO, DESC_1 : F 
30 Ab 08 BE 04 AE 38 001 MOVC3 DESC 1, SDESC_144, 48(R6) : 9782 ; 
08 AE 0 A6 SE 0014 MOVAB 4 (RE) DESC _T+4 : 078 3 
2E AG FFOG BF AA 0014 BICW2 #65284, 46(RB) + 0785 ; 
ZA A6 OF 00140 PUSHAB 42(R6) + 0788 : 
C AB 9F 0015 PUSHAB 44(R6) + 0787 ; 
5B DD 0015 PUSHL R11 : 0786 ; 
FC =6AB OOF 0015 PUSHAB MAILS$L_MBXBUF : ; 
59 DD 00158 PUSHL 9 : ; 
000000006 00 05 FB O015A CALLS #5, LIBSASN_WTH MBX : 0788 F 
Se 50 D0 00161 MOVL RO, STAT : ; 
10 58 £9 00164 BLBC —« STATUS, 11$ : ; 
Oc AE 9F 00167 PUSHAB DESC + 0789 | : 
10 AC DD OO16A PUSHL CNCTDESC : ; 
56 DD 0016D PUSHL Rs : ; 
FDC3) CF 03 FB OO16F CALLS #3, TRY_CONNECT ; | : 
58 50 pO 00174 MOVL RO, STATUS : : 
2F A 04 AE 9000177 11$: MOVB  DESC_1, 47(R6) + 0790 ; 
32 58 ES 0017¢ LBS  STATOS. 14$ + 0791 ; 
7E 2c AG 3C OO17F MOVZWL 44(R6), vt8p) + 0793 ; 
000000006 00 01 FB 00183 CALLS #1, SYSSDASSGN ; ; 
A 2E AG 01 £0 0018A BBS #1, 46(R6), 13$ > 0794 ; 
58 DD 0018F PUSHL STATUS + 0795 ; 
08 AE 9F 00191 PUSHAB DESC_1 : ; 
01 DD 00194 12$:  PUSHL #1 : ; 
OO7E802A BF DD 00196 PUSHL 29034 : 3 
900000006 00 04 FB 0019C CALLS #4, LIBSSIGNAL : : 
1¢ Ab 58 D0 001A3 MOVL STATUS, 28(R6) + 0796 ; 
08 11 001A7 BRB : | F 
50 007E802A 8F DO 001A9 13$: MOVL #8290346, RO : 0797 : 
04 00180 RET : ; 
50 58 DO 001B1 14$: § MOVL STATUS, RO : 0799 : 
04 00184 RET : : 
04 AE 38 AY. 3C 001BS5 15$:  MOVZWL PREFIX_DESC, DESC_1 > 0801 ; 
04 AE D7 OO1BA DECL DE : | : 
08 AE 3c 60 AS.—s«éOO-001BD MOVL —_- PREFIX_DESC+4, DESC_1+4 + 0802 3 
10 Ab OF O0i¢e PUSHAB 16(R6)~ > 0804 ; 
08 AE 9F 001C PUSHAB DESC_1 : : 
14 AE 9F 001C8 PUSHAB DESC : : 
000000006 00 03 FB 001CB CALLS #3, L 1BSf IND_IMAGE_SYMBOL : ; 
49 50 E9 00102 LBC STATUS, 18$ : 
Oc AE SF 001D PUSHAB DESC > 0806 | 
FCFB OCF or FB 00108 CALLS #1, CHECK PROTOCOL_VERSION : 
3E Q E9 90100 BLBC STATU : 
0B 000000006 00 0 a 01E0 BBC #3, MAILS$GL_FLAGS+2, : 0815 | 
50 000000006 00 9E O01E8 MCVAB WMAIL$Q_ATTDESC, RO ; 
0 DD OO1EF PUSHL RO ; 
11 OO1F1 BRB 17$ ; 
7E D4 OFS 168: CLRL  -(SP) ; | 
7E 000000006 00 3C 001F5 17$:  MOVZWL MAILSGL_SYSFLAGS+2, -(SP) > 0814. 
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16-Sep-1984 01:10:5 VAX-11 Bliss- 
am oe) Pa Pa St eH 
GLOBAL ROUTINE MAILSCREATELINK (PROTOCOL DESC ,NODE_DESC,CNCTDESC,RETADR) = 
FUNCTIONAL DESCRIPTION: 


This routine is called to create a logical Link to the 
specified node. First, the existing logical Link list is 
searched to see if a Link to that node already exists. 
it does, then the address of the List entry is returned. 
If a Link does not exist, one is assigned and a logical Link 

list entry is created, entered in the List, and the address returned. 


INPUTS: 


protocol_desc = address of descriptor of protocol, 0 implies DECnet 
node_desc = address of descriptor of node name 

cnctdesc = address of cnct block ; , : 

retadr = address of longword to return logical Link list entry address 


3 
R 


If 


BEGIN 

MAP 

PROTOCOL_DESC : 
NODE _DESC : REF 
CNCTDESC : REF $BBLOCK 
RETADR : REF VECTORL,LONG); 


BUILTIN 
INSQUE; 


LOCAL 
STATUS, 
PTR : REF S$BBLOCK; 


REF $BBLOCK, 
$BBLOC 


BIND 
LNKLST = CNCTDESCCCNCT_Q_LNKLST) 


PTR = .LNKLSTCOJ; 

See if Link already exists 

Fe NEQ LNKLSTCOJ 

IF CHEERS ORE BE SCCR SES LENGTH], .NODE_DE 


S 
; : ENJ,PTRELNK_T~NOD 
THEN IF (¢.PTRCLNK B-PNLEN] EQi 0 . 


AND (.PROTOCOL_DESCCOSCSW 
OR CHSEQL(. PROTOCOL _DESCE 
{OCOL D 5 


*PTRELNK 
THEN BEGIN 
RETADRLO) = .PTR; 


DEAD) 
AND .MATLSGL_FLAGSCMAI 
SI OGL 


: VECTORC,LONG; 


EPSCSA_ POINTERS, 
'Check protocol spec match 
‘0? 
CSA_POINTER], 
»PTRCLNK_T_PNAM]) 


‘Return address of found Lnk 
NET JOB) ‘Only signal if net_slave 


.NODE_DESC, .PTRELNK_L_STSJ); 
; '“and whether it'S dead or not 
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MAILSNETSUBS ils -1984 :5 VAX-11 Bliss-32 V4.0-742 Page 30 
yOLC OOD 14- when 1384 oh] 38 DISKSVMSMASTER: CMA AIL. SRCINETSUBS.832;1 79 (17) | 
; 7h 77 PTR = .PTROLNK_L_FLINK]; Next block | 
s 76 4: END; 

: 744 7 ' 
; ot? tty Not found. Create logical Link List entry 
: rs Pp OB8e if -ERR(LIBSGET VM(ZREF (.PROTOCOL_DESCCLDSC$W_LENGTH]+LNK_C_LENGTH) ,PTR);, 
; 748 p et NALT. STATUS); 
: 749 0884 RETURN ~ STATUS); 
; 750 0885 | 
; 751 0886 ' 
s Pg ert Insert into the List 
; P37 Mitt CHSFILL(O,LNK_C_LENGTH,.PTR); | 
>: 755 0890 2 INSQUE(.PTR,LAKC 1); 
: 756 0891 2 PTRCLNK.B NOBLE EN] = .NODE_DESCCDSC$w pEweT HO; | 
; fer +94 CHSMOVET. PIRCLNK 8 “NODLENT, .NODE. DESCEDSC$A_POINTERJ,PTRCLNK_T_NODE]); 
3 o28 bee | Copy protocol name if passed. Set ALTP flag 
: 1 0896 TF (PTRELNK B_PNLEN] = .PROTOCOL_DESCCDSC$W_LENGTH]) NEQ 0 
; 76 0898 CHSMOVE (. PTRCLNK_B -PNLENJ, PROTOCOL -DESCLOSCSA_ POINTER], 
ss 0899 TRELNK_-T_PNAM]); 
: 765 0900 PTRCLNK_V_ALTPJ = TRUE; 
3 7 0901 é END; | 
3; 767 090 ' F 
; 768 090 ! Create paps Link to slave mail 
3; 769 0904 i | 
: 770 0905 ETADR(O] = 
: 771 0906 SEATS = CONN TAIN, -PTR, .PROTOCOL_DESC, .NODE_ DESC. . CNCTDESC) ; 
3; 7 0907 SDASSGN(CHANS ect, LNK_W_MBXCHAN]) ; Deassign mailbox now 
: 77 0908 IF NOT .STATUS 
3 774 0909 EGIN 
: 775 0910 PTRCLNK_W_CHAN) = 0; 
: 776 0911 PTRELNK-V-DEAD] = TRUE; 
: 777 0912 2 END; 
: 778 0913 2 
: 779 0914 2 RETURN .STATUS 
; 780 0915 2 
: 781 0916 1 END; 
03FC 00000 -ENTRY MAILSCREATELINK, Save R2,R3,R4,R5,R6,R7.R8,-; 0820 
59 00000000G 00 9E 00002 MCVAB LIBSSIGNAL, R9 3 
5E 9° C2 00009 SUBL #8, SP § 
56 Oc AC 0 ¢1 0000C ADDL3 #48, CNCTDESC, R6 > 0855 
04 A 66 DO 00011 MOVL (R65, PTR : 0857 
5 08 AC 00 00015 MOVL NODE_DESC, R5 ; 0863 
54 04 AE DO 00019 1$: MOVL PTR, R4 ; 0861 
56 54 D1 0001D CMPL R4, R6 : 
5d 13 00020 BEQL 6$ $ 
50 3 Ad 9A 00022 mOVZBL 47(R4), RO : 
50 00 04 «BS 8 BC 2D 00026 CMPC @NODE_DESC, a4(R5), #0, RO, 48(R4) ; 
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@ 
o 
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| F 14 | 
MAILSNETSUBS 16-Sep-1984 01:10:5 VAX=-11 Bliss-32 V4.0-742 Page 31 
yOLt O00 1o-ge8-1 382 93:19:38 DISKSVMSMASTER: CMAIL.SRCINETSUBS.B32: 1° (11), 
30 AG 020 3 H 
48 12 O000F BNEQ 5 : ; 
4F AG OO : 1 TSTB 9(R4) + 0865 ; 
05 1 4 BNEQ ; | ; 
04 BC 6 0 6 Ist PROTOCOL_DESC + 0866 ; 
50 04 ac 00 09 B 28: MOVL §§ PROTOCOL_DESC, RO + 0867 ; 
51 4F =6AG OA 0003F MOVZBL 79( 1 + 0869 ; 
51 00 04 B80 60 2D 0043 CMPC (RO), @4(RO), #0, R1, B0(R4) : ; 
50 AG 004 : H 
eC 12 0048 BNEQ 5$ : : 
10 BC 4 D 9040 3$ MOVL 4, @RETADR + 0871 ; 
19 2—E AG 1 €1 00051 BBC #1. 46(R4), 4$ : 087¢ ; 
11 000000006 00 1 €1 00056 BBC #1, MAILSGL_FLAGS, 4$ + 087 ; 
1¢ A& DD 0005E PUSHL R + 0874 ; 
08 aC DD 00061 PUSHL  NODE_DESC : ; 
1 DD 00064 PUSHL : ; 
007E802A 8F DD 00066 PUSHL #8290346 : ; 
6 04 FB 0006C CALLS #4, LIBSSIGNAL : ; 
50 2E AG 01 01 EF OOO6F 4$ EXTZV #1. #1, 46(R4), RO > 0875 : 
50 50 D2 00075 MCOML RO. RO : ; 
04 00078 RET : ; 
04 AE 64 p00 00079 5$ MOVL  (R4), PTR + 0877 ; 
9A 11 0007D BRB 1$ + 0861 : 
04 AE 9F OOO7F 6$ PUSHAB PTR > 0884 ; 
04 AE 04 BC 3C 00082 MOVZWL @PROTOCOL_DESC, 4(SP) : : 
04 AE 00000050 8F CO 00087 ADDL2. #80, 4(SPY : ; 
04 AE 9F OOO8F PUSHAB 4(SP) : ; 
000000006 00 02 FB 00092 CALLS #2, LIBSGET_VM : ; 
52 50 D0 00099 MOVL RO, STATUS : ; 
07 52 EB 0009C BLBS STATUS, 7$ : : 
52 DD 0009F PUSHL STATUS : : 
69 01 FB OO0A1 CALLS #1, LIBSSIGNAL : F 
68 11 OO0A4 BRB : ; 
0050 «8F 00 6E 00 2C O00A6 7S: MOVCS #0, (SP), #0, #80, aPTR + 0889 : 
04 BE 0O00AD : : 
66 04 OE OOOAF INSQUE a@PTR, (R6) ; 0890 3 
56 04 AE dO 000B3 MOVL R : 0891 ; 
58 08 AC 00 00087 MOVL § NODE_DESC, R8 : : 
2F Ab 68 90 000BB MOVB (RB)> 47(R6) : : 
50 2F = A6 9A OO0BF MOVZBL 47(R4), R > 0892 ; 
30 Ab 04 88 50 28 000C3 MOVC3 RO, a4(RB), 48(R6) : ; 
57 04 AC pO 00¢9 MOVL PROTOCOL_DESC, R7 > 0896 : 
50 6 90¢D MOVZ2WL (R7), R : ; 
4F AG 0 9 0 0D0 OVB RO, 79(R6) ; : 
50 D5 00004 TSTL RO : : 
0€ 13 00006 EQL ~=s«BS$ : ; 
50 4F AB 9A 00008 MOVZBL 79(R6), RO : 0898 ; 
50 Ab 04 87 50 é d00¢ OVC3 RO, @4(R7), 80(R6) > 0899 : 
2—E AG 04 O0E BISB2 #4. 46(R6) : 0900 : 
10 BC 6 DO OO0E6 8s: MOVL 6, @RETADR > 0905 ; 
Oc AC ODD QOEA PUSHL CNCTDESC : 0906 : 
01C0 8F BB ED PUSHR #*M<R6,R7,RB> ; 3 
FCEB OCF 04 FB OF1 CALLS #4, CONNECT_LINK ; : 
52 0 p OF6 MOVL Rg STATUS : : 
7E 2A «Ab 3C O00F MOVZ2WL 42(R6), -(SP) : 0907 : 
000000006 00 01 FB 000FD CALLS #1, SYSSDASSGN ; : 
| 
} 
. } 
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; Routine Size: 
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H 14 
MAILSNETSUBS 16-Sep-1984 01:10:5 VAX-11 Blis 
Y04+000 12=808-1 383 % 13 2 DISKSVMSMAS 
$ i 3 a ] ROUTINE WRITE_SLAVE(LNKDESC,OUT_DESC) = 
$ oe? 319 : } FUNCTIONAL DESCRIPTION: 
: 7 0921 1! Write a record to the remote node 
: 788 9 ¢ a4 
; 789 9 1 ! Inputs: 
; 790 924 1! 
; 791 0925 1! inkdesc = address of descriptor of Link bloc 
; 09 § 1! out_desc = address of descriptor of record. te write 
; ry 09 1! 
: 794 09 4 1! 
; 795 09 1! Errors are signalled as well as returned. 
: 796 0930 1 !-- 
s 797 0931 BEGIN 
; 798 b338 
; 799 093 MAP 
; 800 0934 LNKDESC : REF $BBLOCK 
; 801 0935 OUT_DESC : REF $BBLOCK; 
; 80 0936 
; 80 0937 LOCAL 
3 093 STATUS; 
; 805 0939 
H 0940 § BIND 
s pst 0043 § QIOSB = LNKDESCCLNK_Q_JOSB) : VECTORC,WORD); 
; 809 094 § IF .LNKDESCCLNK_V_DEAD) 
; 810 0944 THEN RETURN “FALSE: 
> 6811 0945 2 
3 aig P 0946 STATUS = $Q]0W(CHAN=.LNKDESCCLNK_W_CHAN], 
; «81 P 0947 FUNC=]0$_WRITEVBCK, 
> 814 P 0948 IOSB=LNKBDESCCLNK_Q_ 10SB8), 
3; 815 P 0949 2 P1i=(IF .OUT DESCEDSCSA POINTER] NEQ 0 
; 816 P 0950 THEN .OUT_DESCCDSCS$A_POINTER] 
; 817 P 0951 ELSE OUT Bese 
: 818 0952 p2=.0UT_PESELDSESUTLENGTHI): 
3; 87 0953 2 
; 820 0954 2 IF .STATUS 
; 821 0955 THEN STATUS = .QI0SB(0]; 
; ase 0956 
s Ge 0957 IF NOT .STATUS 
> 824 0958 THEN 
; 825 0959 SIGNAL (((SS$_PROTOCOL AND NOT STS$M_SEVERITY) 
: 826 0960 R STS$K_ERROR OR MAILSV_FACILITY),0,.STATUS); 
3 Ber 0961 LNKDESCCLNK_V_DEAD] = TRUE; 
; 828 096 END; 
3 a6? 096 
; 830 0964 RETURN. .STATUS 
; 831 0965 1 END; 


000C 00000 WRITE_SLAVE: 
-WORD Save R2,R3 
AC 00 00002 MOVL 


52 04 LNKDESC, R2 


$-32 V4.0-742 3 
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Routine Base: S$CODE$S + 0759 


99 bytes, 
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=> FRCS e ee FS FS 6S Se 88 OS HS 6 SOS HS FS FS HS OR FS FR ER FE FES FS HE FES SETS FS SS FE HSS SSE *S SETS SHS SS HSS FS HS FSS "SSS FCS*S CH FE SES | 


MAILSNETSUBS 
VO4=000 
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| 

-1984 01:10:5 VAX=11 Bliss- 32 V4.0-742 5 | 
ats ri 03:19:38 DISKSVMSMASTER: CMAIL. SRCIJNETSUBS. B32. ; 33 
| 


H ? p36 } ROUT INE READ_SLAVE(LNKDESC,IN_DESC) = 

; 5 a9 ! FUNCTIONAL DESCRIPTION: 

: 396 1/ Read a record from the remote node 

; 8 971 1! 

; 9 0972 1 ! Inputs: 

: 78 975 1! 
; 841 974 1! inkdesc = address of lnk block for node 
; 84 0975 1! in.desc = address of descriptor of buffer | 
; at ad ! Length is modified in place to reflect amount actually read 

; 845 $97 1! Errors are signalled as well as returned 

> 846 0979 1 !-- 

; 847 0980 BEGIN 

; 848 0981 

; 849 098 MAP | 
; 850 098 LNKDESC : REF S$BBLOCK, 

; 851 0984 IN_DESC : REF S$B8BLOCK; 

; 832 0985 2 BIND | 
; #85 0986 § QIOSB = LNKDESCCLNK_Q_I0SB] : VECTORC,WORD); 

: 854 0987 | 
; 855 0988 LOCAL 

; 856 0989 STATUS; 

; 857 0990 

; 858 0991 IF .LNKDESCCLNK_V_DEADJ 

; 528 44 THEN RETURN “FALSE: 

; 861 P 0994 2 STATUS = $0]0W(CHAN=.LNKDESCELNK W_CHANJ, 
; 86 P 0995 UNC=10$ VBL 
; 86 P 0996 JOSB-LNKBESCLLNK xsi 10SB1, 
3 864 P 0997 Pl=.] K_POINTER], | 
; 865 0998 § P2s. IN- DESC bee su- ~LENGTHT); 

; 866 0999 
; 867 1000 2 IN_DESCCDSC$W_LENGTH] = .QJ0SB(1); 

; 868 1001 2 

; 869 10n6 IF .STATUS 

: 870 100 THEN STATUS = .QIOSB[0]; 

3 Srl 1004 

; 87 1005 IF ~y! PS pada 

; or 1006 THEN 

3; 874 1007 4 SIGNAL ((SSS PROTOCOL AND NOT STSSM_SEVERITY 

: 75 1008 OR STS$K_ERROR OR MAILSV_FACILITY),0,.STATUS); 
: 876 1009 LNKDESCCLNK_V_DEAD] = TRUE; 

; 877 1010 END; 
; 878 1011 
: 879 Isis RETURN .STATUS 

; 880 101 

; 881 1014 1 


END; 
| 
| 


| 
| 
003C 00000 READ_SLAVE: 
WORD Save Ree Re R4,R5 3 0966 | 
52 04 aC DO 00002 MOVL LNKDESC. Re > 0986 | 
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14 
MAILSNETSUBS 16-Se 1984 01:10:5 VAX-11 Bliss-32_V4.0-742 Pa 37 
V04=009 14 3p 138c 93:43:35 DISKSVMSMASTER: SCMAIL. SRCINETSUBS.B32;1> (14) 


; 3 1913 ] ROUTINE CHECK_SLAVE_STATUS(LNKDESC) = 
; B¢ it ! FUNCTIONAL DESCRIPTION: 
: 88 1019 1! Reads a response from the remote node 
: BBB 1020 1 r | 
; 889 1021 1 ! Inputs: | 
; 890 18 ¢ 1! 
; S3) 1 Z : : inkdesc = address of lnk descriptor for node 
; 89 1025 1 ! Read from the node, and treat the first 4 bytes as a yn et value, 
: 894 10 § 1 i pew dg da success or failure. If failure, then read and print the 
; 895 10 1! error text to follow 
; 896 1028 1! 
; 897 1029 1 !-- 
; 898 1030 BEGIN 
; 899 1031 
: 900 1038 e 
; 901 103 LNKDESC : REF S$BBLOCK; 
: 90 1034 
; 90 1035 LOCAL 
; 904 1036 STATUS, 
; 905 1037 DESC : VECTORC2, hone 
3 906 1038 TMPBUF : SBBLOCKCMAIL$K_INBUFFSZ); 
; 907 1039 
; 908 1040 BIND 
\? 4 19) TMPVEC = TMPBUF : VECTORL,LONG]; 
: «911 1908 pESceoy = tL INBUFF SZ; 
3 aig 1044 DESCC1) = PBU 
; 91 P 1045 2 IF_ERR(REA MK MeCAEC. LNKDESC,DESC);, 
: 914 ~ 1046 RETORN .STATUS); 
3; «6915 1047 
> 916 1048 ! 
> 917 1049 ' Check the first longword read. If lbs, then return success. 
; 918 1050 2 ! Otherwise, call routine to read error text from remote node (until 
s 719 1051 § ! 1 byte record of 0) and then signal it 
; 920 1036 ! 
; 921 1053 4R 
: 922 1054 3 U 
3; 923 1055 4 ELSE (MAILSREAD_ERROR TEXT(.LNKDESC,READ_SLAVE); 
> 924 1056 3 .STATOS)) 
; 925 1057 1 END; 
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ETURN (IF (STATUS = .TMPVECCOD) | 
THEN TR 

| 
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DESC | 

#2 READ. SLAVE | 
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60 bytes, Routine Base: S$CODE$ + 0819 


; Routine Size: 


MAILSNETSUBS 16-Sep-19 :5 VAX=11 Bliss-32 V4.0-742 9 
V04=000 1S Seo-1984 9): 13: 33 DISKSVMSMASTER: CMAIL.SR CINETSUBS.832:1 9435 


4 


0000 00000 WRITE_CHECK  aaee + 


WOR Save nothing : 1058 
FEFD CF 6C FA 0000 CALLG (AP) , WRITE_SLAVE : 1086 
51 50 8 0000 MOVL RO, STATUS : 
04 50 €8 QOO0A BLBS RO, 1$ : 
50 51 DO 00000 MOVL STATUS, RO : 1088 
04 poe RET : 
04 AC DD 00011 1$: PUSHL LNKDESC : 
AC AF 01 FB 00014 CALLS #1, CHECK_SLAVE_STATUS 
04 00018 RET : 1089 


; Routine Size: 25 bytes, Routine Base: S$CODE$ + 0855 


: g 1998 ! ROUTINE WRITE _CHECK_SLAVE(LNKDESC,OUT_DESC) = | 
3 3 , 1999 } } FUNCTIONAL DESCRIPTION: | 
; 931 1806 1! Write a record to the remote node, and then check the 
; 9 ¢ 1065 1! response sent back 
i 1064 1! 
; 9 1065 1 ! Inputs: 
3 9595 1998 1! 
3; 936 1067 1! inkdesc = address of lnk descriptor | 
: oe 1998 : ; outdesc = address of descriptor of record to send | 
; 939 1096 1 ' The record is written to the remote node. A response is read. If 
; 940 1071 1 | not success, the error text is read and signalled. 
; 941 Ite 1 / 
3; 94 1073 1 i-- 
; 94 1074 BEGIN 
> 944 1075 
> 945 1076 MAP 
: 946 1077 LNKDESC : REF $BBLOCK, 
3; 947 1078 OUT_DESC : REF SBBLOCK; 
; 948 1079 
; 949 1080 BUILTIN 
: 950 1081 CALLG,AP; 
; 951 Ione 
; 95 108 LOCAL 
> 955 1084 STATUS; 
; 954 1085 
; 955 1086 IF NOT (STATUS = CALLG(.AP,WRITE_SLAVE)) 
: 956 1087 2 THEN RETURN .STATUS | 
3; 957 1088 2 ELSE RETURN CHECK_SLAVE_STATUS(.LNKDESC) 
; 958 1089 1 END; 
| 
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14-Sep-1984 
GLOBAL ROUTINE MAILSNET_FROM(LNKDESC,SENDER_DESC) = 
FUNCTIONAL DESCRIPTION: 


Send the sender's name to a remote node 


i 

i 

Inputs: 

i inkdesc = address of lnk descriptor 

sender_desc = address of descriptor of sender's name 
leo 

BEGIN 

MAP 


LNKDESC : REF S$BBLOCK, 
SENDER_DESC : REF S$BBLOCK; 


LOCAL 
DESC : VECTOR(2,LONG), 
STATUS; 


BUILTIN 
CALLG,AP; 


IF .LNKDESCCLNK_V_DEAD) 
OR .LNKDESCCLAK_V_F SENT] 
THEN RETURN TRUE; 


IF _.LNKDESCCLNK_V_ALTP) 
THEN BEGIN 


DESCLO .LNKDESCCLNK_B_NODLEN]; 
DESCL1] = LNKDESCCLNK_T_NODEJ; 
STATUS = (IF .LNKDESCELAK_L TFRADR] NEQ 0 
THEN T.ENKDESCLLNKOL TERADR) (LNKDESCCLNK_L_CONTEXTI, 


DESC, 
- SENDER_DESC) 
ELSE TRUE) 


END 
ELSE STATUS = CALLG(.AP,WRITE_SLAVE); 


LNKDESCCLNK_V_FSENT] = TRUE; 
RETURN .STATUS 


END; 
0000 00000 .ENTRY MAILSNET_FROM, Save nothing 
08 C2 0000? SUBL2 y 
50 04 AC DO 00005 MOVL —_LNKDESC, RO 
05 2e OA 01 £0 00009 BBS #1, 46 (RO), 1$ 
04 ee OA 03 £1 0000E BBC #3, 46(RO), 28 


On 
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78 bytes, 


; Routine Size: 


“SEO QNS19:5B YMCLTABLSITH2 AiO U2 avers estar} 
pata ROUTINE MAILSNET_ADDR(LNKDESC,ADDR_DESC) = 

! FUNCTIONAL DESCRIPTION: 

Check that an addressee exists on a remote node 


ee i : 

D 
feos TSUBS 6- 0-742 2) 
| ¥04=000 4 L.SRC ) | 


Inputs: 


inkdesc = address of lnk descriptor for node 
addr_desc = address of descriptor cf addressee 


Returns true if addressee exists, false if not 


ee ee ee ee ee ee ee 


BEGIN 


P 
LNKDESC : REF $BBLOCK 
ADDR_DESC : REF S$BBLOCK; 

AL 

DESC : VECTORC2,LONG); 
CALLG,AP; 
IF .LNKDESCCLNK_V_DEADJ 
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3 THEN RETURN FALSE; 
36 IF .LNKDESCCLNK_V_ALTPJ 
37 HEN BEGIN 
38 DESCEO] = .LNKDESCCLNK_B_NODLEN); 
39 DESCC1) = LNKDESCCLNK_T_RODE); 
geo RETURN (IF “LWKDESCCLAK EL TFRADRI EQL 0 
042 ELSE (.LNKDESCCLNK_L_TFRADRJ) (LNKDESCCLNK_L_ CONTEXT, 
os? LNK_C_OUT_CRUSER, 
045 -ADDR_DESC, 
046 MAILSREAD_ERROR_TEXT) ) 
047 END 
048 ELSE IF .LNKDESCCLNK_W_CHAN] EQL 0 
049 THEN RETURN FA 
320 nes ELSE RETURN CALLG(.AP,WRITE_CHECK_SLAVE) 


0000 00000 ENTRY MAILSNET_ADDR, Save nothing : 1137 

SE 08 C8 90002 SUBL2 #8, SP : 
50 04 AC D0 0000 MOVL _LNKDESC, RO > 1162 

34 2— AO o1 EO 00009 BBS #1, 46(RO), 2% ; 
24 2— AO 2 Ft 0005 BBC Wg 46(RO). 1$ > 1165 
6E 2 AO 9A 9001 MOVZBL 47(RO), DESC > 1167 
04 AE 0 Ad 4: 0017 MOVAB 4B (RO), DESC +4 : 1168 
10 ad 05 0001C TSTL 16(RO) > 1169 
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Routine Base: S$CODE$ + O8BC 


69 bytes, 


; Routine Size: 


F 15 
MAILSNETSUBS 16-Sep-1984 01:10:5 VAX=11 Bliss-32 V4.0-742 Pa 
v04- 14 att 7 93:19:38 DISKSVMSMASTER: CMAIL.SRCINETSUBS.B32;1> 


ra 
: 1053 118] 1 ROUTINE SEND_MESSAGE(LNKDESC.CNCTDESC) = | 
; 1054 118¢ 1 ive | ; 
; 1055 11 1 ! FUNCTIONAL DESCRIPTION: : 
3} 2 1184 1! ; 
3; 3 1185 1! Send text of message to remote node ’ 
H 1938 11 § 1! ’ 
; 105 11 1 ! Inputs: | : 
; 1060 1188 1! : 
; 1061 1189 1! inkdesc = address of lnk descriptor for remote node | : 
; 1006 1190 1! cnctdesc = address of cnct descriptor for message ‘ 
; 106 1191 1! | ; 
3; 1064 1138 1 !<< | : 
; 1065 119 BEGIN : 
3 1208 1194 : 
; 106 1195 MAP | : 
; 1068 1196 LNKDESC : REF S$BBLOCK, : 
; 1069 1197 CNCTDESC : REF S$BBLOCK; ; 
; 1070 1198 3 
3; 1071 1199 BIND : 
: 1076 1200 RAB = CNCTDESCCCNCT_T_RAB) : SBBLOCK; $ 
3; 107 1201 ; 
; 1074 1 4 LOCAL i 
; 1075 120 STATUS, : 
; 1076 1204 DESC : VECTORC2,LONG); : 
; 1077 1205 : 
; 1078 1206 pg | = MAILSK_INBUFFSZ; z : 
. 164 1¢o? RAB RABSL_UBF) = CNCTDESCCCNCT_T_BUFFER]; ‘Ensure User buffer is right | ‘ 
; H's} 1308 ; ensure rab is connected for B10 if sending in block mode ; 
: 1088 1211 2 iF .LNKDESCCLNK_V_BLKMODE] | 
3 1084 13t¢ THEN BEGIN : 
; 1085 \¢1 IF NOT .RABCRAB$V_B10) : 
3; 1086 1214 4 THEN BEGIN F 
3; 1087 1215 4 SDISCONNECT (RAB=RAB,ERR=UTILSREPORT_IO_ERROR) ; : 
; 1088 1216 4 RASC Vv J] = TRUE; : 
: 1089 P1217 4 IF_LERR(SCONNECT (RAB=RAB,ERR=UTILSREPORT_IO_ERROR);, 2 
: 1090 1218 4 RETURN .STATUS); : 
; 1091 1219 END; | ‘ 
; 109% 1220 : : 
: 1? iss! : Read from file and write to node until errors or end | : 
3: 1095 155 : WHILE (STATUS=$READ (RAB=RAB, ,ERR=UTILSREPORT_IO_ERROR)) NEQ RMSS$_EOF : 
109% 1224 4 DO BEGIN | ; 
: 109 1225 4 IF NOT .STATUS THEN RETURN .STATUS; : 
; 1098 1226 4 DESCLO) = .RABCRABSW_RSZ); : 
3; 1099 1227 4 DESCC1)] = .RABCRABSL_RBF I); , 
> 1100 P1228 4 IF_ERR(WRITE_SLAVE(.CNKDESC,DESC);, | : 
: 1101 1209 4 RETURN . STATUS); | ; 
3 1102 1230 4 END ; 
3 1103 1231 END ; 
3 1104 1538 ' ; : 
3; 1105 123 !' Do it with records if we have to. Make sure rab is connected for | ; 
: 1308 1234 ' record i/o l . 
3; 110 1235 : | : 
3; 1108 1 $ ELSE BEGIN 3 
: 1109 123 IF ,RABCRAB$V_BIO) | : 


15 
MAILSNETSUBS 18-Sep-1984 01:10:58 VAX=11 Bliss- -32 V4.0-742 45 
v04 14-Sep-1984 12:42:2 DISKSVMSMASTER: (MAIL. SRCJNETSUBS. B32. 19° (18) 
: 1110 1 38 4 THEN BEGIN ; 
: 1111 1 4 SDISCONNECT (RAB=RAB ER R=UTILSREPORT_1I0_ERROR); ; 
; 111g 1240 4 RABLRABSV B10] = FALSE: ; 
: 111 P1261 4 IF _ERR(S$CONNECT (RAB=RAB,ERR=UTILSREPORT_10_ERROR);, ; 
; Vii 4¢ 4 ve RETURN .STATUS): ; 
; 1116 1244 3 WHILE (STATUS=$GET(RAB=RAB,ERR=UTILSREPORT_IO_ERROR)) NEQ RMS$_ECF | ; 
: 111 1245 4 DO BEGIN : 
: 1118 12466 4 IF NOT .STATUS THEN RETURN . STATUS; ; 
+ 1119 1247 & IF .RABLRAB$W_RSZJ GTRU 255 THEN ; 
: 1120 12468 4 RETURA SIGNAL (RM $_RTB, .RABLRABSW_RSZJ); : 
> 1121 1249 4 DESCEO] = .RABLRABSW_RSZJ; ; 
: 11 : 1250 4 DESCL1] = .RABLRABSL~RBF ): ; 
3 11 1251 g IF NOT ((.RABCRABSW_RSZ) EQL 1) :Don't send 1-byte records of 0 ; 
3: 1124 1 26 AND (.(.RABCRABSL_RBF <0 8 > EQL 0)) ' because they breek protocol : 
> 1125 P1253 4 THEN IF “ERR RITE SLAVE (.LNKDESC,DESC);, : 
: 1126 1254 4 RETU erabuss: ; 
: 1127 1255 3 END; : 
: 1128 1256 ; ND; ; 
: 1129 1257 DESCLO) = 1; 'Make a descriptor ; 
> 1130 1258 : DESCL1] = DESCLO) + 2; i Describing 1 byte of 0 : 
3 1131 1259 RETURN WRITE_SLAVE(. LNKDESC,DESC) 'Send the 1 byte of 0 and return : 
: 1132 1260 1 END; ; 
-EXTRN SYSSDISCONNECT, SYSSCONNECT 
“EXTRN SYSS$READ, SYSSGET 
O1FC 00000 SEND_MESSAGE: 
-WORD Save R2,R3,R4,R5,R6,R7,R8 : 1181 
58 000000006 00 9%€ 00002 MOVAB SYSS$CONNE : 
57 000000006 60 9E 00009 MOVAB SYSS01ScONNECT R7 : 
56 FE44 CF 9E 00010 MOVAB WRITE SLAVE, : 
55 000000006 00 H 00015 MOV UTILSREPORT. 10° ERROR, RS ; 
5E 08 C2 0001C SUBL2 #8, SP ; 
52 08 AC 00000286 8F C1 OODIF ADDL #6h6, CNCTDESC, R2 1200 
20 Ae 0200 8F B80 00028 MOVW. #512, 32(R2) > 1206 
24 = A2 08 AC 00000086 8F C1 O00¢E ADDL3 #134; CNCTDESC, 36(R2) + 1207 
54 04 AC 00 000 OVL LNKDESC, R4 + 1211 
41 2— AG 04 €1 0003C BC 4, 46(R4), 38 : 
10 05 A2 03 £0 00041 § #3. 5(R2), 18 > 1213 
4 6B 90046 PUSHR #*M<R2,R5> > 1215 
67 ; EB 0004 CALLS #2, : eee : 
05 A2 88 00048 BISB (R2) + 1216 
4 BB 0004 PUSHR 2,R5> + 1218 
68 : FB 00051 CALLS 42, Beek SCONNECT ; 
: 11 00094 BRB ; 
4 BB 00056 1$: PUSHR #*M<R2 + 1223 
000000006 99 g FB 0058 CALLS 2. § SYSSREAD : 
5 DO 0005F MOVL TUS ; 
0001827A «BF D1 0062 CMPL er ATOS. #98938 ; 
F 13 006 BEQL 8 | ; 
41 3 : 0068 BLBC uth S, 4$ > 1225 
6E : Ag C 006 MOVZWL 43) » DESC : 1 36 
04 AE A2 D0 000 MOVL 40(R2); DESC +4 : 1227 
4010 8F BB 0007 PUSHR #*M<R4.SP> : 1 a 
| 


; Routine Size: 


252 bytes, 


| 
H 15 
16-Sep-1984 01:10:5 VAX-11 BLiss-32 V4.0-742 Page 46 
14-Sep- 1984 43:49:29 DISKSVMSMASTERS EMAIL. SRCINETSUBS. B32:1) (18), 
6 02 £8 90078 CALLS 42, WRITE, SLAVE ‘ 
D cB 07 2$: BLES STATU F | 
3 | 
0S A2 3 61 00 é 3$: BBC ri acy 4$ : 1237 
4 6B 000 PUSHR #*M<R2,R5> t 1239 
67 é FB 00089 CALL "2. “Stéso1sconnect : 
05 A2 BA 0008C BICB * 5(R2) + 1240 
4 BB 000 PUSHR  #*M<R2,R5> + 1242 
68 2 FB 0009 CALLS #2, SYS$CONNECT : 
1 11 0009 BRB : 
4 BB 00097 4s: PUSHR #*M<R2,R5> + 1264 
000000006 FB 0099 CALLS 2. SYSSGET : 
D0 00 AQ MOVL STATUS : 
0001827A BF 53 D1 OO0A CMPL STATUS, #98938 : 
40 13 OOOSA 5S: BEQL 118 : 
04 53 EB OOOAC BLBS STATUS, 7$ + 1246 
50 53 DO OOOAF 68: MOVL STATUS. RO : 
04 00082 RET ; 
OOFF  8F 22 a B1 000B3 7$: CMPW  34(R2), #255 + 1247 
12 1B 00089 BLEQU 8S : 
7E 22 A2 3¢C 00088 MOVZWL 34(R2), =(SP) + 1248 
000181A8 8F DD OO0OBF PUSHL #987 : 
000000006 00 02 FB 000C5 CALLS #2, LIBSSIGNAL : 
04 000C¢C RET : 
6E 22 a2 3¢ OOOCD 8$: MOVZWL 34(R2), DESC > 1249 
04 AE 28 A2 dO 00001 OVL  40(R2), DESC+4 : 1250 
01 22 Ad B1 00006 CMPW qth). # + 1251 
05 if OOODA BNEQ 9$ : 
28 B2 95 000DC TSTB © @40(R2) : 1252 
B6 13 OOODF BEQL 4$ : 
4010 8F BB OO00E1 9$ PUSHR #*M< + 1254 
66 02 FB O000ES CALLS #2, <“GRite. SLAVE : 
AC 50 €8 OO0E8 10$:  BLBS TATUS, 4$ : 
04 000EB RET : 
6E 01 DO OOOEC 11$:  MOVL DESC : 1257 
04 AE 02 AE 9E OOOEF MOV Desc DESC+4 : 1258 
4010 8F BB OOOF4 PUSHR #°M<R4 : 1259 
44 02 FB 000F8 CALLS +2, WRITE. _SLAVE ; 
04 000FB RET : 1260 
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GLOBAL ROUTINE MAILSNET_END_USERS(CNCTDESC) : NOVALUE = 
i FUNCTIONAL DESCRIPTION: 


to all the remote nodes that are described by cnctdesc. 
Inputs: 
cnctdesc = address of cnct descriptor 


CNCTDESC : REF S$BBLOCK; 
LOCAL 
DESC : VECTORC2,LONG), 
LNKDESC : REF S$BBLOCK: 


' 

Form a descriptor of a byte of 0 
pescto] =1; 

DESCL1] = DESCLO) + Fi 

LNKDESC = .(CNCTDESCCCNCT_Q_LNKLSTI)<0, 32 
WHILE .LNKDESC NEQ CNCTDESCCCNCT_Q_LNKLSTI 


DO BEG! 


N 
IF NOT .LNKDESCCLNK_V_ALTP] 'If sending with decnet 
THEN BEGI 


IF WRITE_SLAVE(.LNKDESC,DESC) !Send the 1 byte of 0 
THEN WRITE_SLAVE(.LNKDESC,CNCTDESCCCNCT_Q_TODESCJ); 


END 
ELSE See 
NDESC : VECTORC2,LONG); 
: Send with alternate protocol 
if .LNKDESCCLNK_L_TFRADR] NEQ 0 
THEN BEGIN 


0>; 


CCO) = .LNKDESCCLNK_B_NODLEN); 
NDESCC1J) = LNKDESCCLNK_T RODE); 
IF (CLNKDESCCLIK LTE RADE) (LMKDESCCLNK_L_CONTEXTI, 


D 
MAIL$READ_ERROR_TEXT) 
THEN (-LMKDESCCLWE L TERADR)) 


NDE 
“tee CNCTDESCCCNCT_Q_TODESC)); 


END; 
,axeese = .LNKDESCCINK_L_FLINK]; 
RETURN; 


Send the end of username flag (byte of 0) and the to-Llist 


(LAKDESCCLNK_L_CONTEXTI, 


0-742 p 
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'send ‘'to’’ List 
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SCODES + O9FD 


1$: 


2$: 


MAILSNET Ee UPERS. Save R2,R3,R4 


WRITE SLAVE 


#2, 46(LNKDESC), 2$ 
DESC 

LNKDESC 

#2, WRITE_SLAVE 
16(R3) 

LNKDESC 

#2, WRITE_SLAVE 

V6 CLNKDESC) 
47(LNKDESC), NDESC 


48(R2), NDESC+4 
ILSREAD_ERROR_TEXT 


KDESC) 
16(LNKDESC) 
ESC), LNKDESC 


AB —B2—DB—BZOSZ 
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& 


95 GLOBAL ROUTINE MAILSNET_SEND(ADRDESC,CNCTDESC) = 
95 ! FUNCTIONAL DESCRIPTION: 


Send a message to the remote node. The complete ——— is only sent 
the first time. After the message is sent, and each additional call 


oO 
@ 


for a particular node, only the slave status is checked for each 


i 
i 
' } 
} addressee. | 
; Inputs: | 
adrdesc = address of addressee descriptor 


cnctdesc = address of cnct descriptor 


3 11 1319 1 

3 (11 1320 1 

s 11 1321 1 

: 11 1 ¢ 1 

3 11 1 1 

s 11 1324 (1 

; 1199 1325 1 

; 1200 1 § 1 

; 1201 1 1 

3 1 o 1328 1 

; 120 1329 1 

3: 1204 1330 1 

3; 1205 1331 1 

: 1206 1 3 1! 

: 1207 1 3 

: 1208 1 3 BEGIN 

3; 1209 1335 

: 1210 1336 MA 

: 1211 1337 ADRDESC : REF S$BBLOCK, 

3 7 \¢ 1338 CNCTDESC : REF $BBLOCK; 

3: 121 1339 
: 1214 1340 BIND 

3; 1215 1341 LNKDESC = ADRDESCCADR_L_LLNK] : REF $BBLOCK, 

5 1sig : 4g § SUBJDESC = CNCTDESCCCACT_Q_SUBJDESC) : S$BBLOCK; 

3; 1218 1344 § LOCAL 
3 1219 1345 UDESC Sb lS te bl 

> 1220 1346 2 NDESC : VECTORC2.LONG), | 
: 1221 1347 2 ESC : VECTORC2,LONGI; 

3 \ss¢ 1348 § 

: 122 1349 IF .LNKDESCCLNK_V_DEADJ 

3: 1224 1350 THEN RETURN FALSE; 
: 1225 1351 

> 1226 1392 2 | 
3: 1227 135 ! If the message hasn't been sent to this node yet, then 

3: 1228 1354 ' send it now 

: 1$¢? 1355 ! 

3; 1230 1356 NDESCCO] = .LNKDESCCLNK_B NODLEN]; 

: 1231 1357 NDESCL1J] = LNKDESCCLNK_T_RODE); 

; 1S36 1358 UDESCLO) = Ast $3 ADR_B_NAMLNG); 

3; 123 1359 UDESCL1) = aeeetin ADR_T pang: } 
3 1234 1360 IF NOT .LNKDESC LNK_V_ASGSNT 

3; 1235 1361 THEN Hate) 

; 1336 1366 DESC([O) = SUS OESCEDSC OM LENGTH: 

3 123 136 IF .DESCCLO) NEQ | 
: 1238 1364 THEN DESC{1) = SUD 1 SCEDSCEA_POINTER 

3; 1239 1365 ELSE DESCL1) = DESCCOI: . 

+ 1240 1366 IF NOT .LNKDESCCLNK_V_ALTP) ‘If sending with decnet 

: S03 1367 4 THEN BEGIN 

s 1 $§ P 1368 4 IF _LERR(WRITE_SLAVE(.LNKDESC DESC); 
> 124 1369 4 RETURN .STATUS); 

: 1244 1370 4 $ 

3: 1245 1371 4 ! Now send text of message 

: 1946 1378 4 i | 
: 124 P1373 4 IF _LERR(SEND_MESSAGE(.LNKDESC, .CNCTDESC);, 

: 1248 1374 4 RET gpeary 

3 1249 1375 4 LNKDESCCLNK_V_MSGSNT) = TRUE; 
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m 15 
16-Sep- 75 VAX-11 Bliss-32 V4.0-742 Page 51 
en aen 88s 8b: 18 8s Peek eale teas CMRI che anersues.a32042" (20) 
| 
4004 8F BB 0004D PUSHR womcR2 SP> 1 1369 
64 03 FB 0081 CALLS WRITE SLAVE : 
6D E9 00054 BLBC eet 10$ : 
08 AC DD 00057 PUSHL Sherpesc + 1374 
52 DD 0005A PUSHL Re : 
01A8 cs g Fe 005¢ CALLS , SEND_MESSAGE : 
9 F 0061 BLBS STATUS, 8$ : 
4 9064 RET + 1375 
10 A2 D5 00065 4s: TSTL  16(R2) + 1381 
04 if 0068 BNEG © 5$ : 
50 01 DO 0006A MOVL #1, RO : 1382 
04 BR00 RET : 
SE DD 6 5$: PUSHL SP + 1387 
OC AE 9F 0007 PUSHAB NDESC ; 
04 pp 00073 PUSHL : 
Oc A2 9F 00075 PUSHAB 12(R2) : 
10 8B 04 FB 00078 CALLS 4&4, ayo6R2? : 
4 0 4 0007¢ BLBC = STAT 0$ ; 
000000006 00 SF 0007F PUSHAB STIL SRePORT 10_ERROR + 1393 
7E 08 Ac 00000286 8F C1 00085 ADDL$ #646, CNCTDESC> -(SP) F 
10 AE SF OOO8E PUSHAB NDESC F 
05 DD 00091 PUSHL : 
0c A2 9F 00093 PUSHAB 12(R2) : 
10 862 05 FB 00096 CALLS #5, a16(R2) : 
27 50 £9 OO09A BLBC. STATUS, 10$ ; 
63 01 88 0009D 6$: BISB2 #1, (R3) + 1394 
08 63 02 £0 O00A0 7$: BBS #2. (R3), 8S + 1400 
52 DD OOOA4 PUSHL Re + 1401 
00coO 3&4 01 FB O00A6 CALLS #1, CHECK_SLAVE_STATUS : 
04 000AB RET ; 
000000006 00 9F OOODAC 8s: PUSHAB MAILSREAD_ERROR_TEXT : 1402 
14 AE 9F 000B2 PUSHAB UDESC ; 
10 AE 9F 00085 PUSHAB NDESC ; 
06 DD 00088 PUSHL ; 
Oc A2 9F OOOBA PUSHAB 12(R2) ; 
10 B2 05 FB 000BD CALLS #5, a16(R2) : 
04 000C1 RET + 1400 
50 D4 000C2 9$: CLRL = RO + 1407 
04 000C4 10$: RET : 


; Routine Size: 197 bytes, Routine Base: $CODE$S + 0A76 


= 
.— 


N 15 | 
MAILSNETSUBS 16-Sep-1984 01:10:5 VAX=-11 Bliss-32 V4.0-742 Page 52) 
V04 14-Sep-1984 9h:] 38 DISKSVMSMASTER:CMAIL.SRCINETSUBS.B32: 1° (21) | 
: 1283 1408 1 GLOBAL ROUTINE MAILSREAD_FOREIGN_FILE(OUTRAB) = 
: 1 Se 1409 1 !4¢4 
3 : 82 1019 } FUNCTIONAL DESCRIPTION: 
s 1.37 1e1¢ 1! Calls a foreign net protocol routine to read message text 
: 1288 141 1! from the remote node and store it in the output file 
3: 1289 1414 1! 
3: 1290 1415 1 !<- 
: 1291 et BEGIN 
?. 3 141 M 
3 : + 1213 OUTRAB : $BBLOCK; 
: 1295 1420 RETURN (.1INK_TFRADR) (LINK CONTEXT,LNK_C_IN FILE,0,.OUTRAB, 
> 1296 1401 UTILSREPORT_10~ERROR) 
> 1297 1422 1 END; 
0000 00000 eENTRY MAILSREAD ‘vay | we deamate Save nothing ; 1408 
50 S44 68 po Hit VL LINK_TFRADR, R : 1420 
000000006 F B28 PUSHAB UTILSREPORT_IO_ERROR : 
04 AC 4 fF PUSHL OUTRAB : 
7E 0D D gate MOVQ #13, -(SP) 4 
00600000° 00 9F 0001 PUSHAB LINK_CONTEXT : 
60 0S FB 00018 CALLS #5, TRO) ; | 
04 OOO1E RET 3: 1422 


; Routine Size: 31 bytes, Routine Base: S$CODES + 0838 


—ZTOMNIOWZ BK KCK TO MMIOOOZ SEF ACH TOM OOOVZ Sr ACK TO MMIOOOVZ Sr ACK TOA MIOW 


16 
MAILSNETSUBS 18-38-1984 01: 
yOLtO0D 12780871382 93: 


3 3 
37 
37 
37 
; 1 
; 4 
$3 
37 
3 3 
3 7 
3; 1 
ee 1 
3; 4 
37 
3 Y 
* 1 
3 7 
3; 7 
3; 3 
3 7 
37 
3% 
3 3 
33 
3 3 
3 3 
3 7 
3; 7 
3.3 
3; 7 
3; 7 
3:7 
3; 7 
3% 
3 3 
3 7 
3 7 
3% 
3 7 
sy 
3 7 
3 1 
3 7 
3; 3 
3 7 
; 7 
3 7 
3 7 
; 7 
; 7 
BB 
5.7 
g7 
3:7 
; 7 
3 7 
3 


v4, Page 53 
:CMAIL.SRCINETSUBS.B32;1 (22) 


i See if SYS$NET translated is a DECnet NCB. If so, decode the 
NCB and store in CNCT 


iF NOT CHSFAIL(PTR = CHSFIND_CH(.MAIL$Q_INPTRANCDSCSW_LENGTHI, 
-MAIL$Q_INPTRANCDSCSA_POINTER],2C°/')) 


+4 ROUTINE ACCEPT_LINK = 
4! FUNCTIONAL DESCRIPTION: 
08 Accept a connection from a remote node 
05 ! Inputs: 
06 ! 
07 ! none 
08 ' 
4 3 Implicit inputs: 
1 3 network server data base and own storage 
i 3 BEGIN 
14 3 LOCAL 
315 3 STATUS, 
316 4 RMSRAT, 
317 4 RMSRFM, 
318 4 PFLAGS, 
319 4 PTR : REF VECTORC,BYTE), 
320 4 PTR1 : REF S$BBLOCK, 
321 4 LEN 
322 4 Q10SB : VECTORC4,WORD]; 
324 4 LINK_CHAN = 0; 
325 4, RAILES _CHCTECCT B_FILRAT = FABSM_CR; 
326 MAILS$SG_CNCTLCNCT_B FILRFM) = FAS$C_VAR; 
327 L$Q_PROTOCOLCCDSC$W_LENGTH] EaL 6 
328 THEN BEGIN 
329 ! 
330 
331 
$36 
33 
334 
335 
336 
3 
3 
3 
3. 


a oe ee ee ee ee ee eee) 
Fe ae De >t ae ae >t ot ot ot et et et et et et et et ek et et ek et et ek ek et ek ee es te 
DONO EWN —O DONAUEWN HODOBNAU EWN ODONAUIE WN SO ODNAV EWN OORDNOURW 
DED PH B BB BL BE ENN NINN DIDPIPIDINPUPONPYNPIPIPONYNINYDYD 2 A OP OO OO OS 

— 

nn" 

a 

z 

> 


5 
5 
5 
5 
5 
5 
5 
5 
5 
5 THEN BEGIN 
6 LEN = .PTR = .MAILSQ_INPTRANCDSCSA_POINTER] - 4; '7"", word, cnt count 
37 6 PTR = .PTR + 3; isnt to cnf count 
38 6 PTR1 = PTRC1); 'PTRI points to cnfdata 
39 6 IF .LEN-CNF_C_ LENGTH GEQU 0 
40 6 AND .PTRCOJ EQL CNF_C “et 
341 6 AND .PTRICCNF_B_VERSION] GEQU CNF_C_VERS 
34¢ 6 AND .PTRICCNF~B-ECO) GEQU CNF_C_ECO 
$7 ° THEN BEGIN 
345 6 ! It seems to be a valid CNF from another MAIL. Store away the 
£48 4 } info and modify accordingly 
348 7 PTRICCNF_V_PFXSEND) = 0; ‘Clear his bit 
349 7 PTRICCNF_V_CCSEND) = 0; ‘Clear his bit 
350 7 PTRICCNF_B_VERSION]) = CNF_C_VERS;  !Send back our protocol ver 
351 7 PTRICCNF BECO) = CNF ECO; ' and eco level 
325 7 IF .PTRICCRF_V_BLKSEND 'Sending block mode? 
$2 7 THEN BEGIN : ; 
54 7 PTRICCNF_V_BLKSEND) = 0; ‘Clear his send bit 
355 7 PTRICCNF_V_BLKRECV] = 1; 'Set my receive bit 


16 
MAILSNETSUBS 1- -Sep-1984 93 :19:3 VAX-11 Bliss-32 V4.0-742 54 
v04-000 14-Sep-1984 12:42:2 DISKSVMSMASTER: CMAIL.SRCINETSUBS. B32. 79 * (22) 
: 1 2$ 1480 6 MAIL$G_CNCTCCNCT_B_ dete = gait CNF_B_ RFMI; 
: 135 1481 6 MAIL$G_CNCTCCNCT_B_FILRAT TRILCNF_B_RATJ; 
; 1358 1286 6 MAIL$G_CNCT eNCTV BLK =" TRUE. 
: 1359 148 : PTRICCAF_B_RFM = T; WILL send 1 block at a time 
3; 1360 1484 END; 
: 1361 1485 4 END; 
3; 3 ; 1486 3 END; 
; 136 1487 3 ! 
3 1564 1488 : Assign a channel to _NET: Then attempt to accept the connection. 
3; 1365 1489 ; ' If that fails, then give up. 
3; 1366 1490 ! 
; 1300 1491 4 if (STATUS = LIBSASN_WTH or Came TCP DESC 
> 1368 149 4 L _ABXBUE MAIL$L_MBXQUO,LINK_CHAN, 
3; 1369 1493 4 NETA se 
3; 1370 P 1494 5 AND ((STATUS = $Q1OW(FUNC=10$ RCCESS 
; 1371 P1495 5 CHAN=.LINK_ 
: 1378 P 1496 5 sosee arose 
3 137 1497 5 P2=MAIL$Q_INPTRAN) ) 
> 1374 1498 4 AND (STATUS = a10SBC0 )) 
: 1375 1499 4 THEN (S$DASSGN(CHAN=. NE TMBX CHAN); RETURN TRUE) 'ALL done if DECnet 
: 1376 1500 4 ELSE BEGIN 
3; 1377 1501 4 SDASSGN(CHAN=.NETMBX_ CHAN) 
: 1378 1502 4 MAIL$G_ eNCTEGNCT _V "BCKMODES = FALSE: 
3; 1379 1503 4 RETURN™ . STATUS 
; 1380 1504 3 ; 
3; 1381 1505 3 END 
3; 1382 1506 3 ELSE ,BEGIN 
: 1383 9 14 3 : 
3 1384 1508 3 The /protocol qualifier was used in starting up inbound network 
3; 1385 1509 3 i mail. Merge in the specified file and use it. 
: 1386 1510 3 : 
3; 1387 1511 3 PFLAGS = 
3 +3 a 12\¢ ; IF LARR (LIBSF IND ae seme. (AAT. PROTOCOL, PROT_DESC,LINK_TFRADR);, 
: 1390 P1514 3 IF _ERR(CHECK PROTOCOL VERSION (MAILSQ _PROTOCOL);, 
: 1391 1515 3 TURN .STATUS) 
3: 1392 P1516 3 IF_ERR((.LINK _TFRADR) (LINK_ tOnTEXT, 
3; 1393 P1517 3 LNK_C_IN_CONNECT, 
3 1394 P1518 3 MAIC$G_INPTRAN, 
; 1395 P 1519 RMSRAT,RMSRFM, 
3; 1396 P 1520 .MAILS$GL_SYSFLAGS<16,16,0>, 
; 14g0 P 1521 MAIL$Q_ PROTOCOL, 
3; 1398 P 1366 3 PFLAGS);, 
: 1399 135 ; ives - STATUS) 
: 1400 1524 LINK CHA ILSGL_FLAGS MALE V ALTPd = 1; 
3 1401 1525 3 RAILSG NCTECNCT.B B_FILRFM fn 4 
: 1402 1526 3 malt $G- ENE CNCT— B-FILRAT 
3; 1403 1527 3 at i a AGSEAAT? = CERVERLOOP) os oeanay 
3: 1404 1528 3 RETUR 
: 1405 1529 2 : 
3: 1406 1530 1 END; 


O1FC 00000 ACCEPT_LINK: 


NMS ODO OK— UM — 


“nn / Oa or mo @—NM YT WwW ~ 
WN ~w rwrw ww wo Oovovd O RRR DODOO o 
N WS www ww ww wvvwvy vs wasawsyssss w 
_—~ = Sh eee ee — or Oe - Se ee el ee el el el el ed el oe - 
ae 
ao PSPSPS FS FS FSS TSHR HS HS FSS HSS FSS FS HS HSS HTS HSS HSER HS HS HS HS HSER HSS HS HS HSS HS HTS FSCS FS FS FS PSPS HS HES HSS Fete tO te te 
aon 
Qs. 
N 
~m 
@ 
. 
” 
@ 
 ] 
“” 
_— 
uw 
2 
te} 
NY 
va 
Kw 
| to. 
| ou 
| o-— ~ Qo 
| Tv=<c <= N num 
| >= . a -<— 
| uw me ~ ++ 
| Ne ts) be bee 
mar s N ro vv 
tw wo ws -_ << 22 =< 
ore orca + vuM @ 
an a oa =x te = 
-< ww ss =) re out 1 
—=z ae & +70 2) +a AA =x 
an wa zor vo 22 a eS jee 
= wzwoa ateemM | =) ato “a Se ou. 8B zs 
-> eek: 4 uo a <qaun p= pm | 4 oO 
—A s wre ee Ar -—oa -2a =< oO Ze -re2Zz OO Z ms 
tx MBZwmMaAow «+ oe lo) aw owace wom ca oct xx NMS aw 
—YW fCOws2e2ze 2a 2 za &-& =—- & an . —-=x Pa <zo>v z #f&a 
qe mMmanAaeodt aaa “ee a a COeRAn nnn Av Ar <zx<= We 
>a wm ttt waxre L 4 ce com . ACeEMOOns-w I ‘t+ @<t s x= +e 
eacacguvnwnw a oz — eer ee eR Kw eae ae ae KO OO ve We 
Qavvlcesee i '~- GA Qa @QaerQn fn | hl KEelU ww ete Sect AA JIND-A- AR @ “~ Ww 
eA MT KU — * e oOo @cte @ Fe F&F A aa ad and —-aaQa aam wa s 
SON eS FOZ =n . ~~ seOr FF AO OO 8 wh 8 8 Rte * Mn NnNNMOOCZwWN + 
aon > a eet tN TOO TA HVT MS = 0. 0 BY OM EC TL NOR ew OM YH NEw OO 
WN NYNMZETE oF 1REZ—HEBRBVATIMA I F&—-B~—M~-MOBB~RBWRe-- BVWZctseczernwiiaqiiozwriizae 
on 
== g_22 2 
= Aa@O@DOdooaaw naan 2am fa la) N jit in | asl WG 
—™N Qditddete dt ji3323) swveoOssisitit et IO O OMNI OZSVCMOMMOAMOAITIIIITITIIV a ao TOT ITI 
Oo-r- OF >>2> 52> 00 >+ GOB Pewee S-oO rar @a wa vnrv SO > SH 2VVWVVVHN VHOILVTZevnvKvnvage o> 
BOQOOO0C0O 5D IOMVMWEOO]SZIOWXOOOFEZSE JO 90 U0 007707797 2aO4UY ID DD tO 
ws TESTS EEVCE+- OME tIMDVYTOM“TS LEVVYOVMITMEMOMETMEAAAAAVEMGvVAVCoIAA ves 
oon 
mr 
te 
A 
‘es - ™N La) 
oaowy 
=) wc 


BOO NIC CI CIM IN ST ST ST ST TIWMAUNUNIILN OO OOO OR-P-PR-P D coco 


ye ee he A pte te ee ett tat ptt ee hee EP tH) 9 et oto > tree th te At +o be 4 
PDOORAOAOVADOO— MAM — OB — VOVARA VO KO -COODODWODOODOA OAKS Ou Owe. Or. OP OO0Bu0 
Oe OOOOTM GNM WO Ue ON MODOC KT RK IMO KN RK TK MMOOR. NOV WWO WWM WOO 
Naeem ee ee eee ee ee eer Sr arom 
Oo 
oO OVUW- led 
OOooo0o N wv ve =< co r=T—} ve oo =) 
Ovrooc[eo Oo oO u © o oo o oo N 
owOoooo N oo 
oucoooo So oo 
oe oooo oo 
o Sooo oo 
Oo oooo oo 
Oo Oooo oo 
om omnwsMmw ~-F ea | Oo ONOKNO MM OCO-hCOyT TT ouu om 
MAMAN WO wo WW MMMM © MmOO-OwWOdtodae ownrm ow 
- wv 
o Oo 


©o ike] 
So So 
S S 
oS So 
S S 
Oo So 
oO o 


16 
MAILSNETSUBS 1h-Sep-19 4 01:10:5 VAK=11 Bliss-32 V4.0-742 56 
MOCO 127808-1 3c 93:19:38 DISKSVMSMASTER: CMAIL. SRCINETSUBS. B32, 19° (23) 
OF 52 52 0c9 BLBC STATUS, 4$ : 
é oc A § OC MOVZWL QI0SB, STATUS + 1498 
0 52 ES 0000 BLBC STATUS, 4s : 
0c A3 DD 000D PUSHL NETMB + 1499 
£8 04 FB 0006 CALLS #1, OYSSDASSGN : 
A 11 000D BRB 6$° : 1500 
OC A3 DD 000DB 48: PUSHL NETMBX_CHAN + 1501 
68 01 FB OOODE CALLS ai. SYSSDASSGN ; 
04 AG 04 BA OO0E1 BICB2 MAILSG. CNCT+132 t 1502 
50 52 D0 000ES MOVL gt thr TUS, + 1503 
04 00068 RET + 1506 
6f D4 DOES 5$: CLRL _—sC PFLLAGS + 1511 
04 A3 9F OO0EB PUSHAB LINK TFRADR + 1513 
EO A? 9F OOOEE PUSHAB PROT DESC : 
55 DD O00F1 PUSHL R5 ; 
000000906 00 03 FB 000F3 CALLS #3, LIBSFIND_IMAGE_SYMBOL ; 
48 50 €9 OOOFA BLBC STATUS, 7$ ; 
55 GD OOOFD PUSHL R + 1515 
FOA2 CF 91 FB OOOFF CALLS #1, CHECK_PROTOCOL_VERSION : 
41 0 £9 00104 BLBC STA ; 
50 04 A3 DO 90107 MOVL LINK TFRADR, RO + 1523 
4020 8F 8B 0010B PUSHR #M<R5,SP> ; 
7E 000000006 00 3C 0010F MOVZWL RAIL SGC SYSFLAGS+2, -(SP) : 
10 AE 9F 00116 PUSHAB RMSRF ; 
18 AE 9F 00119 PUSHAB OASRAT : 
56 DD 0011C PUSHL R6 ; 
08 DD OO11E PUSHL #8 ; 
08 A3 9F 00120 PUSHAB LINK CONTEXT F 
60 08 FB 00123 CALLS ) ; 
1F 50 £9 00126 BLBC STATU s. 73 ; 
000000006 00 04 88 00129 BISB2 #4, MAILSGL FLAGS+1 + 1524 
63 01 dO 00130 MOVL 4 INK_CHAN 3 
01 A 04 AE 90 00133 MOVB ——- RMSRFM, BAILSG_¢ NCT+129 : 152 
64 08 AE 90 00138 MOVB RMSRAT. MAILS$G_ ENT #1 28 : 152 
000000006 00 01 02 6— FO 0013C INSV _ PFLAGS, #2, #1, MAILSGL_FLAGS+2 : 152 
50 01 DO 00145 6$: MOVL #1, RO : 152 
04 00148 7$: RET : 153 


; Routine Size: 329 bytes, Routine Base: SCODE$S + OBSA 


F 16 
MAILSNETSUBS 16-Sep-1984 01:10:5 
Yost O08 18780871382 93:19:38 
GLOBAL ROUTINE MAILSGET_INPUT (OUT_DESC,PROMPT_DESC,OUTLEN) = 
; FUNCTIONAL DESCRIPTION: 


A Liss-32 V4.0-742 Page 37 
I R st (23) 


VAX-11 B 
DISKSVMSMASTER: CMAIL.SRCINETSUBS.B32 


oo 
Ooo 


If non-network, read from SYSSINPUT. If network, read from 
network Link 


i 

i 

i 

Inputs: 
i out_desc = address of yee: desciptor for output string 
: prompt_desc = address of prompt descriptor 

= 


BEGIN 


Pp 
OUTLEN : REF VECTORC,WORDJ; 


BUILTIN 
NULLPARAMETER; 


LOCAL 
TEMPLEN : WORD, 
STATUS; 
BIND 
QIOSB = MAIL$G_CNCTCCNCT_Q_I10SB) : VECTORC,WORDJ; 


IF .MAILSGL_FLAGSCMAIF_V_NETJOBJ 
THEN BEGIN 
Accept the Link if it hasn't been already. 
iF .LINK_CKAN EQL 0 
THEN IF _ERR(ACCEPT_LINK();, 
TURN .STATUS); 


RETU 
IF NOT .MAILSGL_FLA°SCMAIF_V_ALTP] 
THEN BEGIN 


For decnet, read the duffer. Then copy to the output buffer 


STATUS = $Q]0W(CHAN=.LINK CHAN 
FUNC=10$_READVBLK, 
OSB=Q10 


=Q] 
P1=MAIL$G_CNCTCCNCT_T_BUFFER], 
P2=MAIL$K—INBUFFSZ); 


- STATUS 
THEN Hl ae = .Q]0SB(0]; 


MEW OOONAUES WN“ OOONOUS WHO 


WANA NIA PIPUNININONPUNINPYDY 2 2 SO OS 
PPP B® a= BS BS BB BEB ANNI WI 


PAA CO 


vuvv 
ee ee ed ae ee ee ce ae ed eed ee ce ca ch ae ee ce ce a ee ce ce ce ee ce ed ee ce ce ce ce el ce ee ee ee ce ee ec ee ee ee ee ee ee ee ee 


Pw weal e eae ales eles eal wales wales leslie les eae ala lhl Nal Nal U shea al val ah ab ah ah dh Ab ah dh ah ah ah ah ah dh a eal ah ed ed ad el ea ea a al a al 


IF 


URN .STATUS; 
LIBSSCOPY_R_DX(QiOSBL1),MAIL$G_CNCTCCNCT_T_BUFFERJ, .OUT_DESC); 
RETURN TROE 


4 
For foreign net, let it's routine do the copy, too 


ELSE RETURN (.LINK_TFRADR) (LINK_CONTEXT, .PROMPT_DESC,.OUT_DESC); 


NOUS WR CO OO NAUE WIN 3 9 ODNAUE WIN OOD NAU EWN | OD OONAUE WN OO ODONAUE WIR 
WEEKES EERE EF AWNNAININI IIR IPOPUPONINONPININPINIPINIPONINIDY 2 OP OO OO OO 


900090009 09 09 09 SINSINSI SISIN  NSIO 


16 
MAILSNETSUBS 1hese -1984 01:10:5 VAX=-11 Bliss-32 V4.0-742 8 
v04-000 14 ety 7 04:19:38 ISKSVMSMASTER: CMAIL.SRCIJNETSUBS. B32, ; oe 53 
END 
ELSE BEGIN 
Not network job. 


STATUS = SMGSREAD_COMPOSED_LINE (MAILS$L_SMG -KEYBOARD 
IL$L_SMG_KEYTA 
"OUTS DESC, -SROMPS LBESC, TEMPLEN); 

IF .STATUS FOL SMG$_EOF 

THEN STATUS = RMAS$_EOF; 
IF (.STATUS "eae RMS$_TNS) 

OR (.STATUS EQL 358 DATAOVERUN) 

THEN STATUS = SS RMAL; 
IF -RAILSGL FLAGSCAALE V_CTRLCFLI 


Ok kk kk kd tk dd 
Sl Del Del dl dele De ee ee ee et et ee ee et et et ee 

0000 09 09 09 08 SII NIN NINN NNO OO 

VMEWN OO OONAOUSWH—OWOW 
kk a kk a dd td 
PAPA ASAAA AAAS OUI 
———§ ~OHOODKDOOCOCOOOOODOO0O0OO0OMC 
WR OODNOAUEWN $C OONOUES WOO 
MMW SE AWN BANS BAW NNO 


(STATUS OF; 
MAIL$GL af RASSEMALE V_CTRLCFLJ = 0); 
IF NOT NULLPARARETER( 
THEN OUTLENCO} = ,TEMPLEN; 
IF NOT . STATUS 
AND (.STATUS NEQ RMS$_EOF) 
86 THEN SIGNAL (MAILS _REABERR,1,MAIL$Q_INPTRAN,. STATUS); 
87 RETURN .STATUS 
88 END; 
89 
90 END; 
003C 00000 ~ENTRY MAILSGET th Save R2,R3,R4,R5 : 1531 
55 00000000G 00 9€ 00002 MOVAB MAILSGL_FLAGS, R5 3 
54 00000000" 00 9€ 90009 MOVAB NK_CHAN, 3 
53 000000006 00 2 00010 OVAB MAILSG_ CNCT+134, R3 3 
5E 04 C2 00017 SUBL2 # p~ j 
63 65 01 €1 OOOTA BBC #1. MAILSGL_FLAGS, 5$ : 1559 
64 D5 OOO1E TSTL LINK_CHAN : 1564 
09 12 00020 BNEQ 3 
FE90 =sCF 00 FR 00022 CALLS #0, ACCEPT_LINK : 1566 
01 50 £8 00027 BLBS STATUS, 1$ i 
04 0002A RET : 
40 01 AS 02 0 00028 1$: BBS We MAILSGL_FLAGS+1, 4$ : 1567 
7E 7C 909 0 CLROQ (§p) : 1576 
7E 7C 00032 CLRQ ~t3p) : 
7E 0200 8F 3C 00034 MOVZWL #512, -(SP) 3 
53 bp 00039 PUSHL R53 2 
7 C 00038 CLRQ -(SP) : 
BA A3 9F 0003D PUSHAB QI0SB 3 
31 DD 00040 PUSHL #49 3 
$4 DD 00042 PUSHL LINK_CHAN ; 
E D4 00044 CLRL - 3 
000000006 00 of 4 00046 CALLS #1 DH ta 3 
52 0 OD sted MOVL RO, "STA 3 
04 3¢ 5? 05 BLBC STATUS, 8 : 1577 
3¢ BA A C 9003 MOVZWL Q10S6 STATUS : 1578 
0 52 £8 00057 2$: BLBS tus, 3$ : 1§79 


H 16 
MAILSNETSUBS 6-Sep-1984 
M00 tO b-Sep- 


1 
1 
OOA8 31 QOO5A 
04 AC DD Q005D 38: 
53 DD 0006 
BC AS YF 0006 
000000006 00 8 Fe 006 
50 1 D0 0006C 
04 oer 
50 04 A& 00 00070 4$: 
04 AC DD 00074 
08 AC DOD tA 
08 A4 YF OOO7A 
60 03 FB te 
04 00080 
5E DD 00081 5$: 
7E 04 AC 7D 00083 
000000006 00 9F 00087 
000000006 00 9F 0008D 
000000006 98 05 FB 00093 
50 DO 0009A 
000000006 52 01 00090 
07 12 Q00A4 
52 0001827A 8F DO Q00A6 
00018188 8F 52 Di QOOAD 6$: 
09 13 00084 
00000838 8F 28 Di 00086 
03 12 00080 
52 01 DO OOOBF 7S: 
0B 01 AS €E9 000C2 8$: 
52 0001827A 8F DO 000C6 
01 AS 01 8A 000CD 
03 6C 91 000D1 9$: 
OC 1F 00004 
0c AC 05 00006 
07 13 00009 
07 52 €9 000DB 
oc «BC 6E BO OOODE 
20 52 £8 Babes 10$: 
0001827A = BF 52 01 QOOES 11$: 
17 13 QOOEC 
52 DD OOOEE 
000000006 00 9F 000FO 
01 DD Q00F6 
900000006 00 ae he Oe FB OOOFE 
3 33 DO 00108 128: 
04 00108 


; Routine Size: 265 bytes, Routine Base: $CODE$ + OCA3 


-1984 


4 2:03: 


38 VAX-11 Olisse -32 V4.0-742 
32 ER: (MAIL. SRCINETSUBS. B32. 79 * 02 ; 


DISKSVMSMAST 
12$ 
OUT _DESC 
aj0sB+2 
#3, LIBSSCOPY_R_DX 
#1, RO 
LINK_TFRADR, RO 
OUT BESC 


UT 
PROMPT DESC 
are CONTEXT 


ESC, =(SP) 
L~SMG_KE 


Ab pp 
- 
= 
wa 
x 
mm 
<~< 
s5 
zr 
om 


RO. STA TU 
STATUS, #SMG$_EOF 


#98938, STATUS 
STATUS, #98744 
STATUS, #2104 


ATUS 
ia fea 9% 


189 9s 

10$ 

STATUS, 11$ 
TEMPLEN, @OUTLEN 
STATUS, 

STATUS, #98938 
12$ 

STATUS 

ate reali 


#8261810 
#4, LIBSSIGNAL 
STATUS, RO 


YBOA 
SMGSREAD F COMPOSED LINE 


Se Se Se Se Se Se Se Se Se Se Be Se Se Be Be Se Be Be Se Be Se Be Se Ge Se Se Se Se 


1581 


1587 


mAILeN TSUBS 1)-$8,-19 4 93:19:38 VAX-11 Bliss-32 V4.0-742 Page 60 


14-Sep-1984 DISKSVMSMASTER: CMAIL. SRCINETSUBS.832; 
GLOBAL ROUTINE MAILSPUT_OUTPUT(BUFDESC,FAOARGS) = 
FUNCTIONAL DESCRIPTION: 


Fee 
~o 
SPS 


Write a record to sys$output (or sys$net if network server) 
Inputs: 

i bufdesc = address of string to output or fao control ge 

: faoargs = start of fao args if bufdesc is an fao control string 
for fao strings which take no args, use a 0 for faoargs 
1 


i If 2 or more arguments are passed, bufdesc is assumed to be an fao control 
string, and is processed as such 


AL 
THPBUF : SBBLOCKCMAILS$K_INBUFFSZJ, 
Q10SB : VECTORE4 -WORDI, 


BBE BEREAN NAWIIPPOPONPONOPYPPN 2 SS SO 


PUPVDVLVIVSUDUSV SV SUSUSU SUSU SUSU SISSIES SSIS ES SS 
AUS WO ODONAUES WN O ODBNOUES WN O OONAUE WN" OVOONOUS 


WAI AIR NINININININIDINID 2 = 2 S| SOOO DOOCOOCOOOCOVNO 
ababcbababahabahebabubebiahabablahabiabah babababaiaatababubababaababababahahbahababubabutababahababhababaalaiat 
DARDBD ADA A DADA AAA DAA AAA DA AA AAA AAA AAA A AAA AAA A AAA OA AO 


a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
PINE BEB EES SF SWI NIN AWAD PINPIPININININPININININID 2 2 9 OO OO OO OO OO 


Be Se Be Be Oe Oe Oe Be Se Se Be Se Se Se Se Se Fe Be Se Be Se Se Se Se Ge Se Se Ge Se Se Se Ge Hs Ge FH Se Se Se Se Se Se Se ee Se oe Se Se Fe Se Sees Se Se Sees 


7 

8 

9 

0 

} 

3 

4 

5 

6 OUTDESC : RE LOCK, 

f DESC : VECTORC2,LONG): 

9 OUTDESC = .BUFDESC; 

0 IF ACTUALCOUNT() GEQU 2 

1 THEN BEGIN 

2 DESCLO] = MAILSK_INBUFFSZ; 

3 DESCL1] = TMPBUF: 

4 P SFAOL (CTRSTR=.OUTDESC,OUTLEN=DESC, 

5 OUTBUF =DESC ,PRMLST=FAOARGS) ; 

6 QUTDESC = DESC: 

8 5 IF NOT .MAILS$GL_FLAGSCMAIF_V_NETJOB) 

9 5 THEN RETURN LIBS°UT_OUTPUTT. OUTDESC) 

0 5 ELSE BEGIN 

1 5 IF .LINK_CHAN EQL 0 

’ P 165 THEN” IF_ERR(ACCEPT_LINK();, 

5 RETURN STATUS); 

534 5 IF NOT .MAILSGL_FLAGSCMAIF_V_ALTP 
535 57 THEN BEGI 
536 P 1658 STATUS = $Q1OW(CHAN=.LINK_CHAN, 
537 P 1659 FUNC=10$ QRITEVBLK, 
538 P 1660 OSB=Q1 
539 P 1661 P1=, OUTDESCCDSC$A_POINTER], 
540 6¢ P2=.OUTDESCLDSC$W_LENGTHJ); 
541 66 IF STATUS 
242 664 THEN STATUS = .QIOSBCO); 
54 665 RETURN .STATUS 
544 666 ND 
545 66 ELSE RETURN (.LINK_TFRADR) (LINK_CONTEXT,LNK_C_IO_WRITE, .OUTDESC); 
ae6 668 END; 
54 669 END; 


; Routine Size: 


53 
5 
0 
6E 
AE 


60 


Routine Base: 


see? +1 
FDF 


0200 
1 


04 
08 


04 
28 


08 
04 


08 


SCODES + ODAC 


VAX=11 Bl isse -32 V4.0-742 


J 16 
16-Sep-1984 01:10:5 
1038-1 38e 93:13:35 DISKSVMSMASTER: CMAIL.SRCIJNETSUBS. B32:1 


MAILSPUT_OUTPUT, Save R2,R3 
NK_CHAN, R3 


-528TSP), SP 
BUFDESC, OUTDESC 
(AP), # 


WAIWWNPOHNYNIN  ] — — Oooo 


MANO SNE HO NVM ONMO 


OUTDESC 
Gutorte FLAGS, 2$ 
, LIBSPUT_OUTPUT 


SOSSOSCSCOSCOSOSOOSOOSOSOOSOSOO 
FREES 
o> ono 
~m - 
ca - 


$f accep LINK 
o oMAILScu_ FLAGS+1, 


w 
wn 


ne, SYS$Q10W 
a1osB. “STATUS 
om TFRADR, RO 
OUTDESC 


Co NII INIA A AAR AOUUIUIM 


OFPOVPS KPVionQwrINPOVNNOMOOS OMOCoi>ry SO PPrPwOCroro 
coos 


UWNFIWNA MOOMNOMMOPIMMIOOCOW —P-MLNMMMOMNNOOMOe 
OnMnNOVTOCITIOWM NOOO ONO WNT THC OTNIOMOTTNGS OWOOOW—oOoVT OWo 
FO OV OCLO ODEO MWOVOOOOCVOWMWVUVL DIOMWI wn AMON—OMMoa 
SOOOCCOCSCOSCSOOCOOOCOCOOOCOOCOOCOOCOOOOOOOOOC OOOO OOOOOO 
fae ele lolol alee lel ololololololololeolololelololololololololelelol ole ele lolololololo) 
Pee Se Se Se Se Ge Se Se Se Be Be Se Se Se Se Be Se Se Se Se Se Se Be Se Fe Be Se Se Se Se Se Se Se Fe Se Se Se Se Se Be Be 


COOOCCOCOCOCOCOSSCCOOCOOOCOoOoCOooCooO 


uw 
bad 
or 


61 
9 28) 


1669 


K 16 
MAILSNETSUBS 16-Sep-1984 01:10:58 VAX=-11 Bliss-32 V4.0-742 2 
v04-000 14-Sep-1984 4 12:4 19: 729 DISKSVMSMASTER: (MAIL. SRCINETSUBS 832; i 9 285 
; 1549 1670 0 END ELUDOM 


-EXTRN LIBSSIGNAL, SYSSUNWIND 
PSECT SUMMARY 
Name Bytes Attributes 


SOWNS 1 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SGLOBALS NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 3645 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
een, ae OW aae ae teat, Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(S SySi 1BISTARLET. 32:1 9776 74 0 581 00:00.8 
> 7$255$DUA28: CMAIL.OBJ JMAILDEF .L32;1 457 71 15 26 00:00.2 
; COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:NETSUBS/OBJ=OBJ$:NETSUBS MSRC$:NETSUBS/UPDATE=(ENH$:NETSUBS) 
Size: 3466 code + 201 data bytes 
Run Time: 00:42. 
Elapsed Time: 0¢261.0 
Lines/CPU Min: 2357 


oneness PU-Sitas 36089 
ae | Used: 225 pages 
Compilation Complete 


N 


ENT CORPORA 


am Vax7uae va AND PROPRIET 


DIGI 
VAX/VMS V4.0_ CONF 


TI 
AR 


0 
Y 


